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This publication describes the mathematical and service subprograms in the vs 
fortran libraries supplied with vs fortran. To aid the programmer in the use of 
this publication, a brief description of each chapter follows: 

1- “Introduction” describes the four types of subprograms in the VS FORT AN 
library (VSFORTL) and defines their use in either a vs fortran or an 
assembler language program. 

2- “Mathematical and Character Subprograms” describes the subprograms 
which perform computations and conversions frequently needed by the 
programmer. A mathematical or character subprogram is invoked explicitly 
whenever one of its entry names appears in a source statement, or implicitly 
through use of certain notations in the source statements. 

3- “Service Subprograms” contains information about those subprograms 
which perform utility functions. 

4- “Algorithms” contains information about the method used in the library to 
compute a mathematical function and describes the effect of an argument 
error upon the accuracy of the answer returned. 

5. “Accuracy Statistics” gives accuracy statistics for the explicitly called 
mathematical subprograms. 

6. “Appendixes” provides a list of diagnostic messages, a list of module names, 
a sample storage printout, storage estimates, and information for the 
assembler language programmer. 

Standard and mathematical notation is used in this manual. The reader should be 
familiar with this notation and with common mathematical terminology. 

Industry Standards 

The vs fortran Compiler and Library program product is designed according to 
the specifications of the following industry standards, as understood and 
interpreted by IBM as of June, 1980: 

American National Standard Programming Language fortran, ANSI X3.9- 
1978 (also known as fortran 77) 

International Organization for Standardization ISO 1539-1980 Programming 
Languages-FORTRAN 

These two standards are technically equivalent. In this manual, references to the 
current standard are references to the above two standards. 

American Standard fortran, X3.9-1966 

International Organization for Standardization ISO R 1539-1972 Program¬ 
ming Languages-FORTRAN 

These two standards are technically equivalent. In this manual, references to the 
old standard are references to these two standards. 

Both the fortran 77 and the fortran 66 standard languages include IBM exten¬ 
sions. In this book, references to current fortran are references to the fortran 
77 standard plus the IBM extensions valid with it; references to old fortran are 
references to the fortran 66 standard plus the IBM extensions valid with it. 
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VS Fortran Publications 

The vs fortran publications are designed to help you develop your programs with 
a minimum of wasted effort. This book, the VS FORTRAN Application Program¬ 
ming: Library Reference, gives you detailed information about the execution-time 
library subroutines. 

A series of related publications give you detailed reference documentation you can 
use when you are actually performing the tasks this manual describes: 

VS FOR TRAN Application Programming: 

Application Programming Guide, SC26-3985, contains guidance information 
on designing, coding, debugging, testing, and executing vs fortran 
programs written at the current language level. 

Language Reference, GC26-3986, gives you the semantic rules for coding vs 
fortran programs when you’re using current fortran. 

System Services Reference Supplement, SC26-3988, gives you fortran- 
specific reference documentation for the system your programs will operate 
under. 

Source-Time Reference Summary, SX26-3731, is a pocket-sized reference card 
containing current fortran syntax and brief descriptions of the compiler 
options. 

System/360 and System/370 FORTRAN IV Language manual, GC28-6515, gives you 
the rules for writing vs fortran programs when you’re using old fortran. 
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Related Publications 


The fortran programmer using the vs fortran compiler and library should be 
familiar with the information in the following publications: 

• vs fortran Language Reference, GC26-3986 

• KS FORTRAN Application Programming Guide, SC26-3985 

• vs FORTRAN System Services Reference Supplement, SC26-3988 

• vs FORTRAN Compiler and Library Diagnosis, SC26-3990 

Information about IBM-supplied utility programs can be found in the following 
publications: 

• OS/VS1 Utilities, GC26-3901 

• OS/VS2 Utilities Manual, GC26-3902 

• DOS/VSE Utilities Manual, GC33-5381 

Information about the linkage editor and loader programs can be found in the 
following publications: 

• OS/VS Linkage Editor and Loader, GC26-3813 

• Guide to the DOS/VSE Assember, GC33-6077 

Information about data management can be found in the following publications: 

• OS/VS1 Supervisor Services and Macro Instructions, GC28-6670 

• DOS/VSE Data Management Concepts, GC24-5138 

• DOS/VSE Macro User's Guide, GC24-5139 

Information about assembler language programming can be found in the following 
publications: 

• OS/VS and DOS/VS, VM/370 Assembler Language, GC33-4010 

• OS/VS, VM/370 Assembler Programmer's Guide, GC33-4021 

Information about System/370 machine characteristics can be found in the follow¬ 
ing publication: 

• IBM System/370 Principles of Operation, GA22-7000 
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I SUMMARY OF AMENDMENTS 
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| MISCELLANEOUS CHANGES 

I * "Compare of complex numbers” has been added to the chart 
Implicitly Called Mathematical Subprogams. 

| • Storage estimates have been updated. 

• VSAM execution error messages have been included; other 
messages have been changes. 
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A list of figures has been added. 
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Introduction 


The vs fortran library contains the following types of subprograms: (1) 
mathematical and character functions, (2) service subprograms, (3) input/output 
subprograms, and, (4) error handling subprograms. The mathematical and service 
subprograms handle single, double and extended-precision arguments. Character 
subprograms handle conversation between character and integer data. 

The library subprograms may be used in either a fortran or an assembler 
language program. (Appendix B contains calling information for the assembler 
language programmer.) In vs fortran, calls to the library subprograms are either 
at the programmer’s request or in response to the program requirements. 
Subprograms required by the program being compiled are provided by the linkage 
editor or loader, which takes the subprograms from the library. 


Mathematical and 
Character Functions 

These routines provide commonly used mathematical and character functions. 
When vs fortran requests a function, the routine is either: 

Inline Inserted into the program during compilation, or 

Out-of-Line Included in the load module as a called subprogram during link 
editing. 

This publication discusses both out-of-line and inline routines. The American 
National Standard Institute (ANSI) defines several arithmetic functions, such as 
absolute value (ABS), positive difference (DIM), and transfer of sign (SIGN) as 
intrinsic functions. For the most part, code for these functions is inserted inline by 
the fortran compiler at the point in the source module where the function’s 
name is used. However, the following ANSI-defined intrinsic functions have been 
implemented as part of the vs fortran library and are provided out-of-line for all 
systems: 

• INDEX 

• LGE/LGT 

• LLE/LLT 

• MAX/MIN 

• MAXO/MINO 

• AMAXO/AMINO 

• MAXI/MINI 

• AMAX1/AMIN1 

• DMAX1/DMIN1 

• QMAX1/QMIN1 

• MOD/AMOD/AINT 

• IFIX/INT/IDINT 
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Service Subroutine 
Subprograms 

Each of the service subprograms corresponds to a subroutine form as defined by a 
subroutine statement in a fortran source module. These subprograms perform 
mathematical exception test and utility functions. They may or may not return a 
value to the calling module. 

Input/Output and Error 
Processing Routines 

The library contains certain input/output and error processing routines that act as 
interfaces with the compiled program and operating system. Frequently, the 
mathematical and service functions require assistance from these routines for 
input/output, interruption, and error processing. Storage estimates for these 
routines are included in Appendix B. 
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Mathematical and Character Subprograms 


The mathematical and character subprograms supplied in the vs fortran library 
perform computations and conversions needed by the programmer. Mathematical 
and character subprograms are called in two ways: explicitly, when the programmer 
includes the appropriate entry name in a source language statement (see Figure 1); 
and implicitly, when certain notation (for example, raising a number to a power) 
appears within a source language statement (see Figure 1). 

The following text describes the individual mathematical and character 
subprograms and explains their use in a vs fortran program. Detailed informa¬ 
tion about the actual method of computations used in each subprogram, error 
messages, and storage estimates are discussed later in this publication. 


Mathematical and Character Subprograms 9 



General Function 


Specific Function 


Entry Name(s) 


Logarithmic and exponential subprograms 
(described in Figure 2) 

Exponential 

EXP 

DEXP 

CEXP 

CDEXP 

QEXP 

CQEXP 


Logarithmic, common and natural 

ALOG, ALOGIO 

DLOG, DLOGIO 

CLOG 

CDLOG 

QLOG, QLOGIO 

CQLOG 


Square root 

SQRT 

DSQRT 

CSORT 

CDSORT 

QSQRT 

CQSQRT 

Trigonometric subprograms 

Arcsine and arccosine 

ARSIN, ARCOS 

(described in Figure 3) 


DARSIN, DARCOS 

ASIN, ACOS 

DASIN, DACOS 

QARSIN, QARCOS 


Arctangent 

ATAN, ATAN2 

DATAN, DATAN2 

QATAN 

QATAN2 


Sine and cosine 

SIN, COS 

DSIN, DCOS 

CSIN, CCOS 

CDSIN, CDCOS 

QSIN, QCOS 

CQSIN, CQCOS 


Tangent and cotangent 

TAN, COTAN 

DTAN, DCOTAN 



QTAN,QCOTAN 

Hyperbolic function subprograms 

Hyperbolic sine and cosine 

SINH, COSH 

(described in Figure 4) 


DSINH, DCOSH 

QSINH, QCOSH 


Hyperbolic tangent 

TANH 

DTANH 

QTANH 

Character 

Convert integer to character 

CHAR 

Manipulation 


Routines 

Convert character to integer 

ICHAR 

(see Figure 6) 



Length of character item 

LEN 


Index of character item 

INDEX 


Alphamerically greater than or equal 

LGE 


Alphamerically greater than 

LGT 


Alphamerically less than or equal 

LLE 


Alphamerically less than 

LLT 


Figure 1. (Part 1 of 2) Explicitly Called Mathematical and Character Subprograms 
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General Function 

Specific Function 

Entry Name(s) 

Miscellaneous subprograms 

Absolute value 

CABS 

(described in Figure 7) 


CDABS 

CQABS 

IABS 

ABS 

DABS 

QABS 


Error function 

ERF, ERFC 

DERF, DERFC 

QERF, QERFC 


Gamma and log-gamma 

GAMMA, ALGAMA 

DGAMMA, DLGAMA 

LGAMMA 


Maximum and minimum value 

AMAXO, AMINO, MAXO, MINO 
AMAX1, AMIN1, MAXI, MINI 
DMAX1, DMIN1 

MAX, MIN 


Modular arithmetic 

MOD 

AMOD, DMOD 

QMOD 


Truncation 

AINT 

INT, IDINT 


Imaginary Part of Complex 

IMAG, AIMAG 


Argument 

DIMAG 

QIMAG 


Conjugate of a Complex Number 

CONJG 

DCONJG, QCONJG 


Obtain 

ANINT 


Nearest Whole Number 

DNINT 


Obtain 

NINT 


Nearest Integer 

IDNINT 


Obtain Positive Difference 

DIM, IDIM 

DDIM, QDIM 


Transfer of Sign 

SIGN, ISIGN 

DSIGN 

QSIGN 


Obtain Double Precision Product 

DPROD 


Figure 1. (Part 2 of 2) Explicity Called Mathematical and Character Subprograms 
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Explicitly Called Subprograms 


Each explicitly called subprogram performs one or more mathematical or character 
functions. Each mathematical and character function is identified by a unique entry 
name. 

A subprogram is called whenever the appropriate entry name is included in a vs 
fortran arithmetic or character expression. The programmer must supply one or 
more arguments. These arguments are separated by commas, the list of arguments 
is enclosed in parentheses, following the entry name. 

For example, the source statement: 

RESULT = SIN (RADIAN) 

causes the sine subprogram to be called. The sine of the value in R ADIAN is com¬ 
puted and the function value is stored in RESULT. 

In the following example, the square root subprogram is called to compute the 
square root of the value in AMNT. The function value is then added to the value in 
STOCK and the result is stored in ANS. 

ANS = STOCK + SQRT (AMNT) 

The explicitly called subprograms are described in Figures 2 through 5. The follow¬ 
ing information is provided: 

General Function: This column states the nature of the computation performed 
by the subprogram. 

Entry Name: This column gives the entry name that the programmer must use to 
call the subprogram. A subprogram may have more than one entry name; the par¬ 
ticular entry name used depends on the computation to be performed. For exam¬ 
ple, the sine and cosine subprogram has two entry names: SIN and COS. If the sine 
is to be computed, entry name SIN is used; if the cosine is to be computed, entry 
name COS is used. 

Definition: This column gives a mathematical equation that represents the com¬ 
putation. An alternate equation is given in those cases where there is another way 
of representing the computation in mathematical notation. For example, the 
square root can be represented either as: y — V3cor y — x in . 

Argument Numbers: This column gives the number of arguments that the 
programmer must supply. 

Argument Type: This column describes the type and length of each of the argu¬ 
ment (s). integer, real, complex, and Character represent the type; the notations 
*4, *8, *16, *32, and *n represent the size of the argument in number of storage 
locations. (The notation *n describes character data.) 

I-IBM EXTENSION-, 

Argument Range: This column gives the valid range for arguments. If an argu¬ 
ment is not within this range, an error message is issued. For a description of the 
error messages see Appendix C of this publication. 
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Function Value Type and Range: This column describes the type and range of 
the function value returned by the subprogram. Type notation used is the same as 
that used for the argument type. The range symbol y = 16 63 (1 — 16~ 6 ) for regular 
precision routines, 16 63 (1 — 16‘ 14 ) for double-precision and y = 16 63 (1 — 16~ 28 ) 
for extended-precision. 

1 -END OF IBM EXTENSION- 1 

Error Code: This column gives the number of the message issued when an error 
occurs. Appendix C contains descriptions of the error messages. 

Throughout this publication, the following approximate values are represented by 
2 18 • 7 t and 2 50 • t r: 

2i8 . „ - .8235496645826428D + 06 
2&o , 7T= .3537118876014220D+16 

Detailed information for the assembler language programmer is given in 
Appendix A. 
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General 

Function 

Entry 

Name 

Definition 

Argument( s ) 

Function Value 
Type 1 and 

Range 4 

Error 

Code 

No. 

Type’ 

Range 

Common 
and natural 
logarithm 

ALOG 

y=log r x or 
y=ln x 

1 

HEAL *4 

x > 0 

REAL *4 
y> -180.218 
y S 174.673 

253 


ALOGIO 

y=logi«x 

1 

REAL *4 

x > 0 

REAL *4 
y > -78.268 
y ^ 75.859 

253 

DLOG 

y=log,x or 
y=ln x 

1 

HEAL *8 

x > 0 

real *8 
y> -180.218 
y ^ 174.673 

263 

DLOGIO 

y = log,«x 

1 

REAL *8 

x > 0 

real *8 
y > -78.268 
y S 75.859 

263 

clog 

w —PVl/wr t •» \ 

1 - - —O'- v *• / 

See Note 2 

l 

rOMpr^vv 

7 J-0 1 Qj 

COMPLEX *8 
y, > -180.218 
y, ^ 175.021 
—* ^ y* ^ ir 

273 

CDLOG 

y=PV log, (7.) 
See Note 2 

1 

COMPLEX *16 

7. ^ 0 + Oi 

COMPLEX *16 
y, >-180.218 
y t ^ 175.021 
— ir ^ y a ^ ir 

283 

QLOG 

y=log e xor 
y=ln x 

1 

REAL *16 

x>0 

REAL *16 
y 2 -180.218 
y S 174.673 

293 

QLOGIO 

y=log 10 x 

1 

REAL *16 

x>0 

real *16 
y 2 -78.268 
y S 175.859 

293 

CQLOG 

y—PV loge (z) 

See Note 2 

1 

COMPLEX *32 

z ^ 0 + Oi 

COMPLEX *32 
y, -180.218 
y, S 175.021 
— ir S y 2 S ir 

278 

Exponential 

EXP 

y=e x 

1 

REAL *4 

x ^ 174.673 

REAL *4 

0^y^7 

252 

DEXP 

y- e x 

1 

REAL *8 

x ^ 174.673 

REAL *8 

0 ^ y rS 7 

262 

CEXP 

y=e* 

See Note 3 

1 

COMPLEX *8 

x, < 174.673 
|xaj < (2 18 • v) 

COMPLEX *8 

— 7 ^ yi, ya = 7 

271, 

272 

CDEXP 

y=e* 

See Note 3 

1 

COMPLEX *16 

Xi g 174.673 
|xa| < ( 2 50 * v) 

COMPLEX *16 
-7 = y>, y* ^ 7 

281, 

282 

QEXP 

y=e x 

1 

REAL *16 

x «£ -180.218 
x S 174.673 

REAL *16 

0 S y S y 

292 

CQEXP 

y=e* 

See Note 3 

1 

COMPLEX *32 

x, a: 174.673 
x 2 Si 2 100 

COMPLEX *32 
-ySy^y^y 

276, 

277 

Notes: (See end of figure.) 


Figure 2. (Part 1 of 2) Logarithmic and Exponential Subprograms 


{$ V, 

XJ 




14 VS FORTRAN Library Reference 




General 

Function 

Entry 

Name 


Argument(s) 

Function Value 

Type 1 and 

Range 4 

Error 

Definition 

No. 

Type 1 

Range 

Code 

Square root 

SQRT 

y— Vx or 
y=x v * 

1 

REAL *4 

x50 

REAL *4 
o ^ y ^ y* 

251 


DSQRT 

^ V- 

II II 

•*x| 

O 

•i 

1 

REAL *8 

c 

Ml 

X 

REAL *8 

O^y 

261 


CSQRT 

y— Vz or 
y=z 1/a 

See Note 3 

1 

COMPLEX *8 

any complex 
argument 

complex *8 

0^y,< 1.0987 (y/*) 
|y*| ^ 1.0987 (y*) 

— 


CDSQRT 

y= Vz or 
y=z ,/l 

See Note 3 

1 

COMPLEX *16 

any complex 
argument 

complex *16 

0 < y, < 1.0987 (y*) 
|y.| ^ 1.0987 (y 1 *) 

— 


QSQRT 

y = VT or 
y = x 1 ' 2 

1 

real*16 

x 2 0 

real *16 

0 £ y ^ y>/ 2 

289 


CQSQRT 

y = V z~or 
y = z 1/2 

See Note 3 

1 

COMPLEX *32 

any complex 
argument 

COMPLEX *32 

0Sy,S 1.0987 (y' 2 ) 
y 2 SS 1.0987 (y l/2 ) 



Notes. 

1 real *4, real *8, and real *16 arguments correspond to real double precision and extended precision arguments, 
respectively, in vs fortran. 

2 pv = principal value. The answer given O', + y 2 i ) is that one whose imaginary part (y 2 ) lies between — it and + it. More 
specifically: — rr < y 2 rr, unless x, < 0 and x^ = — 0, in which case, y 2 — — it. 

3 2 is a complex number of the form x, + x^ /. 

4 y — 16 63 (1 — 16'®) for regular precision routines, 16 63 (1 — 16‘ 14 ) for double precision routines, and 16 63 (1 — 16' 28 ) 
for extended precision. 

Figure 2 (Part 2 of 2) Logarithmic and Exponential Subprograms 
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General 

Function 

Entry 

Name 

Definition 

Argument(s) 

Function Value 

Type* and 

Range* 

Error 

No. 

Type 1 

Range 

Code 

Arcsine and 
arccosine 

ASIN 

See ARSIN, DARSIN or QARSIN 





ACOS 

See ARCOS, DARCOS or QARCOS 





ARSIN 

y=arcsin (x) 

1 

HEAL *4 

MSi 

real *4 (in radians) 

~T SyS T 

257 


ARCOS 

y=arccos (x) 

1 

REAL *4 

MSI 

real *4 (in radians) 
Ogygir 

257 


DASIN 

See DARSIN 







DACOS 

See DARCOS 







DARSIN 

y=arcsin (x) 

1 

REAL *8 

MSi 

real *8 (in radians) 

-JL5Cy<JL 

2 ~ y ~ 2 

267 


DARCOS 

y=arccos (x) 

1 

REAL *8 

MSi 

real *8 (in radians) 

267 


QARSIN 

y=arcsin(x) 

1 

REAL *16 

1*1*1 

real*16 
■fsysf 

297 


QARCOS 

y=arcos(x) 

1 

REAL *16 

W* 1 

REAL *16 

0 S y S ir 

297 

Arctangent 

ATAN 

y=arctan (x) 

1 

REAL *4 

any real argument 

real *4 (in radians) 

_ ~C y <-5L 

2 =y = 2 



ATAN2 

y=arctan (-^-) 

2 

REAL *4 

any real arguments 
(except 0, 0) 

real *4 (in radians) 
—> < y =£ * 

255 


DATAN 

y=arctan (x) 

1 

REAL *8 

any real argument 

real *8 (in radians) 

_-L<y<-L 

2 2 



DATAN2 

y = arctan (““) 

2 

REAL *8 

any real arguments 
(except 0, 0) 

real *8 (in radians) 
-r<y 

265 


QATAN 

y=arctan(x) 

1 

REAL *16 

any real 
argument 

real *16 (in radians) 
- T S y S T 



QATAN2 

y=arctan(-jk) 

_ 

2 

REAL *16 

any real 
arguments 
(except 0,0) 

real *16 (in radians) 

- w < y sS ir 

295 

Notes: (See end of table.) 


Figure 3. (Part 1 of 2) Trigonometric Subprograms. 
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General 

Function 

Entry 

Name 

Definition 

Argument(s) 

Function Value 

Type 1 and 

Range 4 

Error 

Code 

No. 

Type 1 

Range 

Sine and 
cosine 

SIN 

y=sin (x) 

1 

REAL *4 
(in radians) 

|x| < ( 2 18 • ir ) 

REAL *4 
-i<y^i 

254 

COS 

y = cos (x) 

1 

REAL *4 
(in radians) 

|x| < ( 2 18 • ir) 

REAL *4 
-1 ^ y ^ 1 

254 

DSIN 

y=sin (x) 

1 

REAL *8 

(in radians) 

|x| < ( 2 50 • ir) 

REAL *8 

-1 <y ^ 1 

264 

DCOS 

y = cos (x) 

1 

REAL *8 

(in radians) 

|x| < ( 2 50 • ir) 

REAL *8 
-1 ^y ^ 1 

264 

CSIN 

y=sin (z) 

See Note 2 

1 

COMPLEX *8 
(in radians) 

|x,!<( 2 18 -ir) 

|x,| £ 174.673 

COMPLEX *8 

274, 

275 

CCOS 

y = cos (z) 

See Note 2 

1 

COMPLEX *8 

(in radians) 

!x,| < ( 2 ,S • ir) 

jx,| < 174.673 

COMPLEX *8 

-7 ^ y», y* ^ 7 

274, 

275 

CDSIN 

y=sin (z) 

See Note 2 

1 

COMPLEX * 16 
( in radians ) 

lx.] < ( 2 r, ° • ir) 

|x,| ^ 174.673 

COMPLEX *16 
-7 = yi, y.^ 7 

284, 

285 

CDCOS 

y = cos (z) 

See Note 2 

1 

COMPLEX *16 
( in radians ) 

|x,| < ( 2 30 • 7 r) 

|x,j ^ 174.673 

COMPLEX *16 
-7 = y>. y» = 7 

284, 

285 

QSIN 

y=sin(x) 

1 

REAL *16 
(in radians) 

| x ( < 2 ,0 ° 

real*16 
-1 as y 3S 1 

294 

QCOS 

y=cos(x) 

1 

real* 16 
(in radians) 

| x | < 2 100 

real*16 
-1 S y S 1 

294 

CQSIN 

y=sin(z) 

See Note 2 

1 

COMPLEX *32 
(in radians) 

x 2 

< 2 100 
^ 174.673 

complex *32 

-7 ^ y P y 2 ^ 7 

279, 

280 

CQCOS 

y=cos(z) 

See Note 2 

1 

COMPLEX *32 
(in radians) 

I X, 

|x 2 

< 2 100 
£ 174.673 

complex *32 
*7 ^ Yi> y 2 ^ 7 

279, 

280 

Tangent 

and 

cotangent 

TAN 

y = tan (x) 

1 

REAL *4 
(in radians) 

lx| < ( 2’ 8 • ir ) 

See Note 4 

heal *4 
— 7 = y = 7 

258, 

259 

COTAN 

y = cotan (x) 

1 

REAL *4 
(in radians) 

]x| < ( 2 1 8 • ir ) 

See Note 4 

real *4 
~7 = y = 7 

258, 

259 

DTAN 

y = tan (x) 

1 

REAL *8 

(in radians) 

] X { < (2 50 • ir) 

See Note 4 

REAL *8 

— 7 = y = 7 

268, 

269 

DCOTAN 

y = cotan (x) 

1 

REAL *8 

(in radians) 

|x| < (2 50 * ir) 

See Note 4 

REAL *8 

-7 = y = 7 

268, 

269 

QTAN 

y=tan(x) 

1 

REAL *16 
(in radians) 

jx|< 2 100 

See Note 3 

REAL *16 
-y ^ y s 7 

298, 

299 

QCOTAN 

y=cotan(x) 

1 

real* 16 
(in radians) 

|x|< 2 100 
|x|S 16' 63 

See Note 3 

REAL*16 
-7 s y fi 7 

298, 

299 


Notes: 

1 real *4, real *8, and real *16 correspond to real. DOUBLEand extended precision arguments, respectively, in vs fortran 

2 zis a complex number of the form x ] + xf . 

3 x may not be such that one can find a singularity within 8 units of the last digit value of the floating-point representation of x. 
Singularities are ± (2n + l)-^n — 0, 1, 2,... for tangent, and ±nir,n = 0,1,2,... for cotangent. 

4 The argument for the cotangent functions may not approach a multiple of tt\ the argument for the tangent functions may not 
approach an odd multiple of nil. 

6 y = 16 63 (1 — 16' 6 ) for regular precision routines, 16 63 (1 — 16' 14 ) for double-precision routines and 16 63 (1 — 16' 28 ) for 
extended precision. 

Figure 3. (Part 2 of 2) Trigonometric Subprograms. 
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General 

Function 

Entry 

Name 

Definition 


Argument(s) 

Function Value 

Type 1 and 

Range* 

Error 

No. 

Type 1 

Range 

Code 

Hyperbolic 
sine and 
cosine 

SINH 

e* — e~* 
y= 2 

1 

real *4 

jx| < 175.386 


256 


COSH 

e* + e“ 
y 2 

1 

REAL *4 

{x| < 175.366 


256 


DSINH 


1 

REAL *8 

( x | < 175.366 


266 


DCOSH 

e x + e x 

2 

1 

REAL *8 

jx| < 175.366 


266 


QSINH 


1 

REAL *16 

fx|=S 175.366 


296 


QCOSH 


1 

REAL *16 

fx|si 175.366 

real*16 

1 SySy 

296 

Hyperbolic 

tangent 

TANH 


■ 

REAL *4 

any real argument 

Hggn 

Hi 


DTANH 

e x — e' x 
y= e x + e- x 

■ 

REAL *8 

any real argument 

real *8 
-1 ^ y ^ 1 

Hi 


QTANH 


1 

REAL *16 

any real 
argument 

real* 16 
-lSySl 

B 


Notes: 

1 real *4, real *8, and real *16 arguments correspond to real, double and extended precision arguments, respectively, 
in vs fortran. 

2 y = 16 6 ® (1 — 16‘ 6 ) for regular precision routines, 16 63 (1 — 16' 16 ) for double-precision routines, and 16 ,s (1 — 16' M ) 
for extended precision. 

Figure 4. Hyperbolic Function Subprograms 





t 
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General 

Entry 


Argument (s ) 

Function Value 
Type 1 and 

Range* 

Error 

Function 

Name 

Definition 

No. 

Type 1 

Range 

Code 

Absolute 

value 

CABS 

y=jz|= (xi 2 + x* 2 ) 1 * 

1 

COMPLEX *8 

any complex 
argument 

See Note 2 

REAL *4 

0 g yi y 
y* = 0 

— 


CDABS 

y=|z|= (xi 2 + xs 2 ) 1 '* 

1 

COMPLEX *16 

any complex 
argument 

See Note 2 

REAL *8 

0 ^ yi ^ y 
y* = 0 

— 


CQABS 

y = |z| = ( Xl 2 + x a 2 )»' 2 

1 

COMPLEX *32 

any complex 
argument 

See Note 1 

REAL *16 

0Sy,£y 
y 2 = 0 

— 


IABS 

y-UI 

1 

INTEGER *4 

any integer 
argument 

INTEGER *4 

O^y £7 

— 


ABS 

y - |x| 

1 

REAL *4 

any real 
argument 

REAL *4 

0£y£y 

— 


DABS 

y = |x| 

1 

REAL *8 

any real 
argument 

REAL *8 

OSy.Sy 

— 


QABS 

y-M 

1 

REAL *16 

any real 
argument 

REAL *16 

OSy.Sy 

— 

Error 

function 

ERF 

2 C' * 
e " du 

1 

REAL *4 

any real 
argument 

REAL *4 
-liygl 

— 


ERFC 

2 f" * 
y= V7j, e du 

y=1 -erf (x) 

1 

REAL *4 

any real 
argument 

REAL *4 

0 ^ y ^ 2 

— 


DERF 

2 r 2 
y= W. e '“ du 

1 

REAL *8 

any real 
argument 

REAL *8 

-lgy^l 

— 


DERFC 

2 r°° * 

y= 7fJ, e du 

y=l —erf (x) 

1 

REAL *8 

any real 
argument 

REAL *8 

O^y ^2 

— 


QERF 

=2 r 

y irf e' u *du 
•b 

1 

REAL *16 

any real 
argument 

REAL *16 
- 1 S y S 1 

— 


QERFC 

y V e * u ’dti 
x 

y = 1 — erf (x) 

1 

REAL *16 

any real 
argument 

REAL *16 

0SyS2 

— 

Notes: (See end of figure.) 


Figure 5. (Part 1 of 3) Miscellaneous Mathematical Subprograms 
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General 

Function 

Entry 

Name 

Definition 

Argument (s) 

Function Value 
Type 1 and 

Range* 

Error 

Code 

No. 

Type 1 Range 

Gamma and 
log-gamma 

GAMMA 

p oo 

y =J u*' 1 e’ u du 

1 

REAL *4 

x > 2 -282 and 

X < 57.5744 

REAL *4 

0.88560 gyg 7 

290 

ALGAMA 

y=log« T ( x ) or 

poo 

y=log e 1 u* _1 e~“du 

1 

REAL *4 

x > 0 and 
x < 4.2913 • 10 73 

REAL *4 

—0.12149 y 7 

291 

DGAMMA 

poo 

y— 1 u* -1 e"“ du 

I 

REAL *8 

x > 2~ 282 and 
x < 57.5744 

REAL *8 

0.88560 

300 

DLGAMA 

y=log« r ( x ) or 

/•oo 

y=log« J u x_1 e' u du 

1 

REAL *8 

x > 0 and 
x < 4.2913 • 10 73 

REAL *8 

-0.12149 ^ y ^ y 

301 

LGAMMA 

y=log t r ( x ) or 

poo 

y=log, I u* _1 e' tt du 
J 0 

1 

REAL *4 

x > 2‘ 282 and 
x < 57.5744 

REAL *4 

0.88560 ^ y ^ y 

290 

Maximum 

and 

minimum 

values 

. 

MAXO 

y=max (xi,..., x n ) 

5:2 

INTEGER *4 

any integer 
arguments 

INTEGER *4 

— 

MINO 

y = min (xi,.. ., x n ) 

52 

INTEGER *4 

any integer 
arguments 

INTEGER *4 

— 

AMAXO 

y = max (xi,...,x tt ) 

5 2 

INTEGER *4 

any integer 
arguments 

REAL *4 

— 

AMINO 

y = min (xi,. . ., x») 

5 2 

INTEGER *4 

any integer 
arguments 

REAL *4 

— 

MAXI 

y=max (x t ,..., x„) 

>2 

REAL *4 

any real 
arguments 

INTEGER *4 

— 

MINI 

y=min (xi,..., x n ) 

5 2 

REAL *4 

any real 
arguments 

INTEGER *4 

— 

AMAX1 

y=max (xi,... ,x„) 

5 2 

REAL *4 

any real 
arguments 

REAL *4 

— 

AMIN1 

y=min (xi,...,x n ) 

5 2 

REAL *4 

any real 
arguments 

REAL *4 

— 

DMAX1 

y=max (x t ,... ,x„) 

5 2 

REAL *8 

any real 
arguments 

REAL *8 

— 

DMINl 

y = min (xi,..., x„) 

5 2 

REAL *8 

any real 
arguments 

REAL *8 

— 

Notes . (See end of figure.) 


Figure 5. (Part 2 of 3) Miscellaneous Mathematical Subprograms 
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General 

Function 


Maximum MAX 
and 

minimum 

valtirc 

(continued) MiN 


Definition 


|y = max (x,,..., x») 


y=min (xi,..., x») 


Argument(s) 


No. Type 1 Range 


S 2 integer *4 any integer 
arguments 


2: 2 integer *4 any integer 
arguments 


Function Value 
Type 1 and 
Range* 


integer *4 


integer *4 



QMAX1 y=max (x,,..., x n ) 


:2 real *16 any real 
argument 


REAL *16 


QMIN1 y=min (x,.x n ) 


2:2 real *16 any real 
argument 


REAL *16 


Modular MOD y=Xt (modulo x 2 ) 

arithmetic See Note 3 


2 integer x 2 ^ 0 

See Note 4 


INTEGER *4 


A M OD y = xi (modulo x 2 ) 

See Note 3 


2 real *4 x 2 ^ 0 

See Note 4 


REAL *4 


DMOD y=Xi (modulo x 2 ) 
See Note 3 


2 real *8 


X 2 7^= 0 

See Note 4 


REAL *8 


QMOD y=x, (modulo x) 
See Note 3 


2 real *16 x 2 ^0 

See Note 4 


real *16 


Truncation | AINT 


y = (sign of x)»n 
where n = 11 x | j 
See Note 6 


real *4 any real 
argument 


REAL *4 


y = (sign of x)«n 
where n— 11 x | J 
See Note 6 


real *4 


any real 
argument 


integer *4 


IDIN f y — (sign of x) *n 
where n = 11 x | J 
See Note 6 


1 real *8 any REAL 
argument 


integer *4 


Notes. 

1 real *4, real *8, and real *16 arguments correspond to real, double and extended precision arguments, respectively, in 

VS FORTRAN. 

2 Floating-point overflow can occur. 

3 The expression x, (modulo x 2 ) is defined as X, — • x 2 , where the brackets indicate that an integer is used. The 

largest integer whose magnitude does not exceed the magnitude of is used. The sign of the integer is the same as the sign 

of x ‘ . 2 

x 2 

* If x 2 = 0, then the modulus function is mathematically undefined. In addition, a divide exception is recognized and an 
interruption occurs. (A detailed description of the interruption procedure is given in Appendix C.) 

8 y — 16 83 (1 - 16" 8 ) for regular precision routines, 16® 3 (1 — 16* u ) for double-precision routines and 16 63 (1 — 16' 28 ) for 
extended precision routines. 

For example, n = | m | where m is the greatest integer satisfying the relationship | m | St |x |. 


Figure 5. (Part 3 of 3) Miscellaneous Mathematical Subprograms 
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General 

Function 

Entry 

Name 

Definition 

' 

Argument(s) 

Function Value 
Type and 
Range 

Error 

Code 

No. 

Type 

Function 

Convert 

ICHAR 

Conversion to 

1 

Character 

Integer 

INTEGER *4 


character 


integer 






to integer 








Convert 

CHAR 

Conversion 

1 

Integer 

Character 

INTEGER *4 

188 

integer to 


to character 






character 








Length of 

LEN 

Length of 

1 

Character 

Integer 

INTEGER*4 


character 


character 






item 


entity 






Index of 

INDEX 

Location of 

2 

Character 

Integer 

INTEGER *4 

189, 

characte 


substring a 2 





190 

item 


in string a t 






Alphamerically 

LGE 

a i ^ a 2 

2 

Character 

Logical 

LOGICAL *4 

191, 

greater 







192 

than or equal 








Alphamerically 

LGT 

®i ^ a 2 

2 

Character 

Logical 

LOGICAL *4 

191, 

greater 







192 

than 








Alphamerically 

LLE 


2 

Character 

Logical 

LOGICAL *4 

191, 

less than 







192 

or equal 








Alphamerically 

LLT 

a j < a 2 

2 

Character 

Logical 

LOGICAL *4 

191, 

less than 




_ 



192 


Figure 6. Character Manipulation Routines 
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Implicitly Called Subprograms 


The implicitly called subprograms are executed as a result of certain notations 
appearing in a vs FORTRAN source statement. When a number is raised to a power 
or when a multiplication or division of complex numbers is to be performed, the vs 
fortran compiler generates the instructions necessary to call the appropriate 
subprogram. For example, if the following source statement appears in a source 
module, 

ANS = BASE**EXPON 

where base and EXPON are real* 4 variables, the vs fortran compiler generates a 
reference to FRXPR#, the entry name for a subprogram that raises a real number 
to a real power. 

The implicitly called subprograms in the vs fortran library are described in 
Figure 6. The column headed “Implicit Function Reference” gives a representa¬ 
tion of a source statement that might appear in a vs fortran source module and 
cause the subprogram to be called. The rest of the column headings in Figure 6 
have the same meaning as those used with the explicitly called subprograms. 
Algorithms for implicitly called subprograms are given in the chapter 
“Algorithms.” Additional information for assembler language programmers is 
given in Appendix A. 

For subprograms that involve exponentiation, the action taken within a 
subprogram depends upon the types of the base and exponent used. Figures 7 
through 11 show the result of an exponentiation performed with the different com¬ 
binations and values of base and exponent. In these figures, I and J are integers; A 
and B are real numbers; C is a complex number. 


Mathematical and Character Subprograms 23 



Pago of SC26-3989 as updated 03 June 1981 by TNL SN26-0852 


General 

Function 

Entry 1 

Name 

Implicit 

Function 

Reference* 

Argument(s) 

Function 

Value 

Type 3 

Error 

Code 

No. 

Type 3 

Multiply and 
divide complex 
numbers 

CDMPY# 

y = zi* z s 

2 

COMPLEX *16 

COMPLEX *16 

— 

CDDVD# 

y = zt/zi 

2 

COMPLEX *16 

COMPLEX *16 

— 

CMPY# 

y = Zi* z a 

2 

COMPLEX *8 

COMPLEX *8 

— 

CDVD# 

y = zi/za 

2 

COMPLEX *8 

COMPLEX *8 

— 

CQMPY# 

y = z* z 2 

2 

COMPLEX *32 

COMPLEX *32 

— 

CQDVD# 

y - zi/z 8 

2 

COMPLEX *32 

COMPLEX *32 

— 

Compare of 

Complex 

numbers 

CXMPR# 

(See 

Note 4) 

y = z, compop iy 
(See Note 5) 

2 

COMPLEX 
(of all 
lengths) 

LOGICAL*4 

— 

Raise an integer 
to an integer 
power 

FIXPI# 

y = i**j 

2 

i = INTEGER *4 
j = INTEGER *4 

INTEGER *4 

241 

Raise a real 
number to an 
integer power 

FRXPI# 

y = a* * j 

2 

a = REAL *4 
j = INTEGER *4 

REAL *4 

242 

FDXPI# 

y = a * * j 

2 

a = REAL *8 
j = INTEGER *4 

REAL *8 

243 

FQXPI# 

y - a**j 

2 

a = REAL *16 
j = INTEGER *4 

REAL* 16 

248 

Raise a real 
number to a 
real power 

FRXPR# 

y = a* *b 

2 

a = REAL *4 
b = REAL *4 

REAL *4 

244 

FDXPD# 

y = a**b 

2 

a = REAL *8 

b = REAL 8* 

. 

REAL *8 

245 

FQXPQ# 

y = a**b 

2 

a = REAL *16 
b = REAL *16 

REAL *16 

249, 

250 

Raise 2 to a 
real power 

FQXP2# 

y = 2**b 

1 

b = REAL *16 

REAL *16 

260 

Raise a complex 
number to an 
integer power 

FCDXI# 

y = z**j 

2 

Z = COMPLEX *16 
j = INTEGER *4 

COMPLEX *16 

247 

FCXPI# 

y = z**j 

2 

Z = COMPLEX *8 
j = INTEGER *4 

COMPLEX *8 

246 

FCQXI# 

y = z**j 

2 

Z = COMPLEX *32 
j = INTEGER *4 

COMPLEX *32 

270 


Figure 7. Implicitly Called Mathematical Subprograms (Part 1 of 2) 
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Notes: 

1. This name must be used in an assembler language program to call the subprogram; the character # is a part of the name 
and must be included. 

2. This is only a representation of a fortran statement; it is not the only way the subprogram may be called. 

3. real *4, real *8, and real *16 arguments correspond to real, double precision, and extended precision arguments, 
respectively, in vs fortran. 

4. CXMPR# is an entry name in the library module IFYCCMPR, which is also used for a compare of character arguments. 

5. compop is one of the following relational operators: equal or not equal. 

Figure 7. Implicitly Called Mathematical Subprograms (Part 2 of 2) 


Entry 

Name 

Implicit 

Function 

Reference 

Argument (s) 

Function 

Value 

Type 

Error 

Code 

No. 

Type 

CCMPR# 

y = Xj compop x 2 

6 

Character 

Any character 

193 


(See Note) 



argument 

194 

CMOVE# 

y = x 

4 

Character 

Any character 

195 





argument 

196 






197 

CNCAT# 

y = x, // x 2 ... // x n 

2 2 

Character 

Any character 

198 





argument 

199 


Note: Where compop is one of the following relational operators: 
equal 
not equal 
greater than 
less than 

greater than or equal 
less than or equal 


Figure 8. Implicitly Called Character Subprograms 
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Base (I) 


Exponent (J) 

' J^O 

J = o 

J<0 

I>1 

Compute the 
function value 

Function 
value = 1 

Function 
value = 0 

I = 1 

Compute the 
function value 

Function 
value = 1 

Function 
value = 1 

I = 0 

Function 
value = 0 

Error message 
241 

Error message 

241 

I = -1 

Compute the 
function value 

Function 
value = 1 

If J is an odd 
number, function 
value = —1. 

If J is an even 
number, function 
value = 1. 

I<-1 

Compute the 
function value 

Function 
value = 1 

Function 
value = 0 


Figure 9. Exponentiation with Integer Base and Exponent 


Base (A) 

Exponent (J) 

J>0 

J — o 

J<0 

A > 0 

Compute the 
function value 

F unction 
value = 1 

Compute the 
function value 

A = 0 

Function 
value = 0 

Error message 

242 or 

243 

Error message 

242 or 

243 

A < 0 

Compute the 
function value 

Function 
value = 1 

Compute the 
function value 


Figure 10. Exponentiation with Real Base and Integer Exponent 


Base (A) 

Exponent (B) 

B > 0 

B = 0 

B < 0 

A > 0 

Compute the 
function value 

Function 
value = 1 

Compute the 
function value 

A = 0 

Function 
value = 0 

Error message 

244 or 

245 

Error message 

244 or 

245 

A < 0 

Error message 
253 or 

263 

Function 
value = 1 

Error message 
253 or 

263 


Figure 10.1. Exponentiation with Real Base and Exponent 


Base (C) 

C = P + Qi 

Exponent(J) 

J>0 

J = 0 

J<o 

P > 0 and 

Q > 0 

Compute the 
function value 

Function 
value =1 + 0i 

Compute the 
function value 

P > Oand 

Q = 0 

Compute the 
function value 

Function 
value = 1 + 0* 

Compute the 
function value 

P > 0 and 

Q <0 

Compute the 
function value 

Function 
value = 1 + 0i 

Compute the 
function value 

P = 0 and 

Q > 0 

Compute the 
function value 

Function 
value =1 + Oi 

Compute the 
function value 

P = 0 and 

Q = 0 

Function value 
0 + Oi 

Error message 

246 or 

247 

Error message 

246 or 

247 

P = 0 and 
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Figure 10.2. Exponentiation with Complex Base and Integer 
Exponent 
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Service Subroutine Subprograms 


The service subprograms supplied in the vs fortran library are divided into two 
groups: One group tests for mathematical exceptions and the other groups perform 
utility functions. Service subprograms are called by the appropriate entry name in a 
vs fortran language call statement. 

Mathematical Exception test Subprograms 

These subprograms test the status of indicators and may return a value to the call¬ 
ing program. In the following descriptions of the subprograms, j represents an 
integer value. 

Overflow Indicator Subprogram 
Entry Name: OVERFL 

This subprogram tests for an exponent overflow or underflow exception and 
returns a value that indicates the existing condition. After testing, the overflow 
indicator is turned off. This subprogram is called by using the entry name overfl in 
a call statement. The source language statement is: 

CALL OVERFL (j) 

The value of j is returned by the subprogram to indicate the following: 

1 = floating-point overflow condition has occurred last. 

2 = no overflow or underflow condition has occurred. 

3 = a floating-point underflow condition has occurred last. 

Note: A value for j of 1 or 3 indicates that condition was the last one to occur. An 
overflow followed by an underflow in the same statement would be recorded as 
condition 3—“underflow occurred last.” 

Divide Check Subprogram 
Entry Name: DVCHK 

This subprogram tests for a divide-check exception and returns a value that indi¬ 
cates the existing condition. After testing, the divide-check indicator is turned off. 
This subprogram is called by using entry name dvchk in a call statement. The 
source language statement is: 

CALL DVCHK (j) 

where: 

j is set to one if the divide-check indicator was on; or to 2 if the indicator was off. 
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Utility Subprograms 

The utility subprograms perform two operations for the fortran programmer: 
they either terminate execution (exit) or dump a specified area of storage (dump/ 
PDUMP). 

End Execution Subprogram 
Entry Name: EXIT 

The end execution subprogram terminates execution of the load module and 
returns control to the operating system. (Except that no operator message is pro¬ 
duced, exit performs a function similar to that performed by the stop statement.) 
This subprogram is called by using the entry name exit in a call statement. The 
source language statement is: 

CALL EXIT 

Storage Dump Subprogram 

Entry Names: DUMP/PDUMP, CDUMP/CPDUMP 

These subprograms dump character data. 

Entry names dump/pdump dump a specified area of storage. Either of two entry 
names (dump or pdump) can be used to call the subprogram. The entry name is 
followed by the limits of the area to be dumped and the format specification. The 
entry name used in the call statement depends upon the nature of the dump to be 
taken. 

If execution of the load module is to be terminated after the dump is taken, entry 
name dump is used. The source language statement is: 
where: 

CALL DUMP (a„ b u A . a n . b n ,/ n ) 

a and b are variables that indicate the limits of storage to be dumped (either a or b 
may represent the upper or lower limits of storage). 

/ indicates the dump format and may be one of the integers given in Figure 11. 
A sample printout for each format is given in Appendix E. 


VS FORTRAN _ 

0 specifies hexadecimal 

1 specifies logical *1 

2 specifies logical *4 

3 specifies integer *2 

4 specifies integer *4 

5 specifies real *4 

6 specifies real *8 

7 specifies complex *8 

8 specifies complex *16 

9 specifies literal 

10 specifies real *16 

11 specifies complex *32 


Figure 11. DUMP/PDUMP Format Specifications 

If execution is to be resumed after the dump is taken, entry name PDUMP is 
used. The source language statement is: 

CALL PDUMP an, b n J n ) 

where a, b, and / have the same meaning as for DUMP. 
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Programming Considerations 

A load module or phase may occupy a different area of storage each time it is 
executed. To ensure that the appropriate areas of storage are dumped, the follow¬ 
ing conventions should be observed. 

If an array and a variable are to be dumped at the same time, a separate set of 
arguments should be used for the array and for the variable. The specification of 
limits for the array should be from the first element in the array to the last element. 
For example, assume that a is a variable in common, b is a real number, and 
table is an array of 20 elements. The following call to the storate dump 
subprogram could be used to dump table and B in the hexadecimal format and 
terminate execution after the dump is taken: 

CALL DUMP (TABLE(l), TABLE(20),0,B,B,0) 

If an area of storage in common is to be dumped at the same time as an area of 
storage not in common, the arguments for the area in common should be given 
separately. For example, the following call to the storage dump subprogram could 
be used to dump the variables a and B in real* 8 format without terminating 
execution: 

CALL PDUMP (A,A,6,B,B,6) 

If variables not in common are to be dumped, each variable must be listed 
separately in the argument list. For example, if R, P, and Q are defined implicitly in 
the program, the statement 

CALL PDUMP (R,R,5,P,P,5,Q,Q,5) 

should be used to dump the three variables in real *4 format. If the statement 
CALL PDUMP (R,Q,5) 

is used, all main storage between R and Q is dumped, which may or may not 
include P, and may include other variables. 

If an array and a variable are passed to a subroutine as arguments, the arguments 
in the call to the storage dump subprogram in the subroutine should specify the 
parameters used in the definition of the subroutine. For example, if the subroutine 
SUBi is defined as: 

SUBROUTINE SUBI (C,Y) 

DIMENSION X (10) 

and to call to subi within the source module is: 

DIMENSION A (10) 


CALL SUBI (A, B) 

then the following statement should be used in subi to dump the variables in hex¬ 
adecimal format without terminating execution: 

CALL PDUMP (X(l), X(10), 0, Y, Y, 0) 

If the statement 

CALL PDUMP (X(l), Y, 0) 
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is used, all storage between (i) and vis dumped because of the method of transmit¬ 
ting arguments. 

When hexadecimal (0) or literal (9) is specified, the programmer should realize 
that the upper limit is assumed to be of length 4. 




Storage Dump Subprogram 
Entry Names: CDUMP/CPDUMP 

This subprogram dumps a specified area of storage, which contains character data 
only. Either of two entry names (cdump or cpdump) can be used to call the 
subprogram. The entry name is followed by the limits of the area to be dumped. 
The entry name used in the call statement depends upon the nature of the dump 
to be taken. 

If execution of the load module is to be terminated after the dump is taken, entry 
name cdump is used. The source language statement is: 

CALL CDUMP (a„ b,, . .., a„ , b n ) 
where: 

a and b are variables that indicate the limits of storage to be dumped. 

A sample printout for each format is given in Appendix E. 

If execution is to be resumed after the dump is taken, entry name cpdump is used. 
The source language statement is: 

CALL CPDUMP (fl„ b„. .., a n , b n ) 
where a, and b , have the same meaning as for cdump. 

If Cj is a character variable of length 8 and is a character array of dimension 10 
and length 15 then the statement: 

CALL CPDUMP (c„ c* (1), % (10) ) 

will dump the variable c x and all the array elements of array in character format 
and continue execution. 

Programming Considerations 

A load module may occupy a different area of storage each time it is executed. To 
ensure that the appropriate areas of storage are dumped, the following conventions 
should be observed. 

If an array and a variable are to be dumped at the same time, a separate set of 
arguments should be used for the array and for the variable. The specification of 
limits for the array should be from the first element in the array to the last element. 
For example, assume that a is a variable in common, b is a real number, and 
table is an array of 20 elements. The following call to the storate dump 
subprogram could be used to dump table and B in the hexadecimal format and 
terminate execution after the dump is taken: 

CALL CDUMP (a t , b,, ..., a„, b„ ) 

If an area of storage in common is to be dumped at the same time as an area of 
storage not in common, the arguments for the area in common should be given 
separately. For example, the following call to the storage dump subprogram could 
be used to dump the variables A and B in REAL*8 format without terminating 
execution: 


CALL PDUMP (A,A,6,B,B,6) 
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Algorithms 


This chapter contains information about the method by which each mathematical 
function is computed. The information for explicitly called subprograms is arranged 
alphabetically according to the specific function of each subprogram (i.e., absolute 
value, exponentiation, logarithmic, etc.). The individual entry names associated 
with each subprogram are arranged logically from simple to complex within each 
function. For example, the heading “Square Root Subprograms” will have algo¬ 
rithms arranged in the following order by entry name: sqrt, dsqrt, csqrt, cdsqrt. 

Information for the implicity called subprograms is arranged alphabetically 
according to function, and alphabetically by entry name within that function. For 
example, the heading “Complex Multiply and Divide Subprograms” will have 
algorithms arranged in the following order: cddvd#/cdmpy#, cdvd#/cmpy#. 

The information for each subprogram is divided into two parts. The first part 
describes the algorithm used; the second part describes the effect of an argument 
error upon the accuracy of the answer returned. 

The presentation of each algorithm is divided into its major computational steps; 
the formulas necessary for each step are supplied. For the sake of brevity, the 
needed constants are normally given only symbolically. (The actual values can be 
found in the assembly listing of the subprograms.) Some of the formulas are widely 
known; those that are not so widely known are derived from more common for¬ 
mulas. The process leading from the common formula to the computational for¬ 
mula is sketched in enough detail so that the derivation can be reconstructed by 
anyone who has an understanding of college mathematics and access to the com¬ 
mon texts on numerical analysis. Many approximations were derived by the so- 
called “minimax” methods. The approximation sought by these methods can be 
characterized as follows. Given a function fix), an interval I, the form of the 
approximation (such as the rational form with specified degrees), and the type of 
error to be minimized (such as the relative error), there is normally a unique 
approximation to fix) whose maximum error over I is the smallest among all 
possible approximations of the given form. Details of the theory and the various 
methods of deriving such approximation are provided in standard reference. The 
accuracy figures cited in the algorithm sections are theoretical, and they do not 
take round-off errors into account. Minor programming techniques used to 
minimize round-off errors are not necessarily described here. 

The accuracy of an answer provided by these algorithms is influenced by two fac¬ 
tors: the performance of the subprogram (see the chapter, “Accuracy Statistics”) 
and the accuracy of the argument. The effect of an argument error upon the 
accuracy of an answer depends solely upon the mathematical function involved 
and not upon the particular coding used in the subprogram. 

A guide to the propagational effect of argument errors is provided because 
argument errors always influence the accuracy of answers whether the errors are 
accumulated prior to use of the subprogram or introduced by newly converted 
data. This guide (expressed as a simple formula where possible) is intended to 
assist users in assessing the effect of an argument error. 
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The following symbols are used in this chapter to describe the effect of an 
argument error upon the accuracy of the answer: 


SYMBOL 


EXPLANATION 


g( x ) 

f(x) 

€ 

S 

E 

A 


The result given by the subprogram. 

The correct result. 

f( x ) ~ g (*) The relative error of the result 

f(x) given by the subprogram. 

The relative error of the argument. 

| f(x) — g ( x ) j The absolute error of the result 

given by the subprogram. 

The absolute error of the argument. 


The notation used for the continued fractions complies with the specifications 
set by the National Bureau of Standards. 1 

Although it is not specifically stated below for each subroutine, the algorithms is 
the chapter were programmed to conform to the following standards governing 
floating-point overflow/underflow. 

• Intermediate underflow and overflows are not permitted to occur. This pre¬ 
vents the printing of irrelevant messages. 

• Those arguments for which the answer can overflow are excluded from the 
permitted range of the subroutine. This rule does not apply to CDABS and cabs. 

• When the magnitude of the answer is less than 16 * 65 , zero is given as the 
answer. If the floating-point underflow exception mask is on at the time, the 
underflow message will be printed. 


Control of Program Exceptions in Mathematical Functions 

The vs FORTRAN mathematical functions have been coded with careful control of 
error situations. A result is provided whenever the answer is within the range 
representable in the floating-point form. In order to be consistent with vs 
fortran control of exponent overflow/underflow exceptions, the following types 
of conditions are recognized and handled separately. 

When the magnitude of the function value is too large to be represented in the 
floating-point form, the condition is called a terminal overflow; when the mag¬ 
nitude is too small to be represented, a terminal underflow. On the other hand, if 
the function value is representable, but if execution of the chosen algorithm causes 
an overflow or underflow in the process, this condition is called an intermediate 
overflow or underflow. 

Function subroutines in the vs fortran library have been coded to observe the 
following rules for these conditions: 

1. Algorithms which can cause an intermediate overflow have been avoided. 
Therefore an intermediate overflow should occur only rarely during the execu¬ 
tion of a function subroutine of the library. 

2. Intermediate underflows are generally detected and not allowed to cause an 
interrupt. In other words, spurious underflow signals are not allowed to be 
given. Computation of the function value is successfully carried out. 

3. Terminal overflow conditions are screened out by the subroutine. The argu¬ 
ment is considered out of range for computation and an error diagnostic is 
given. 

1 For more information, see Milton Abramowitz and Irene A, Stegun (editors). Handbook of Mathematical Functions, Applied 
Mathematics Series-55 (National Bureau of Standards, Washington, D.C., 1965). 
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4. Terminal underflow conditions are handled by forcing a floating-point under¬ 
flow exception. This provides for the detection of underflow in die same 
manner as for an arithmetic statement. Terminal underflows can occur in the 
following function subroutines: exp, dexp, atan2, datan2, erfc, and derfc. 

For implicit arithmetic subroutines, these rules do not apply. In this case, both 
terminal overflows and terminal underflows will cause respective floating-point 
exceptions. In addition, in the case of complex arithmetic (implicit multiply and 
divide), premature overflow/underflow is possible when the result of arithmetic is 
very close to an overflow or underflow condition. 
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Explicitly Called Subprograms 


Absolute Value Subprograms 

ABS/IABS 

Algorithm 

If x < 0, | x| — —x. Otherwise | x| = x 

CABS/CDABS 

Algorithm 

1. Write \x + iij\ = a + ib. 

2. LetVi = max ( [x|, |t/| ),andt> 2 = min ( jxj, Ivj ). 

3. If characteristics of v t and v 2 differ by 7 (15 for cdabs) or more, or if v 2 = 0, 
then a = Vi, b = 0. 

4. Otherwise, 

a = 2 • Vi • ^Y4 + V\ ,and & = 0. 

If the answer is greater than 16 63 , the floating-point overflow interruption will 
take place (see Appendix C). The algorithms for both complex absolute value 
subprograms are identical. Each subprogram uses the appropriate real square root 
subprogram ( sqrt or dsqrt ). 

CQABS 

Algorithm 

1. Write | x 4- iy \ — a + ib. 

2. Let v x = max (|x|,|y|), and v 2 = min (|x|,|y|). 

Let 16' -1 ;£ v x < 16' 

3. If characteristics of v x and v 2 differ by 15 or more, or if v 2 = 0, then a = v 1? 
b = 0. 

4. Otherwise, let w x = 16 1- ' • v u and w 2 = 16 1- ' • v 2 . 

5. Compute w = V w x 2 + w 2 2 . Then a = 16' -1 w and b = 0. 

6. The scaling factor 16' _1 is easy to construct. Scaling is carried out by short pre¬ 
cision divisions, and the restoration is carried out by extended precision 
multiplication. 

Cffect of an Argument Error 

v 2 

c —8(x) + ^ 8Cy) where 8(x) and 8(y) are relative erros inherent in 
the real part and the imaginary part of the argument, respectively. 
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Arcsine and Arccosine Subprograms 

ARSIN/ARCOS 

Algorithm 

1. If 0 x ^ Vz, then compute arcsin (x) by a continued fraction of the form: 

arcs in ( x ) sx + ^'F where 

- _ _ d \ _ ^2 

(x 2 + Ci) + (x 2 + c 2 )' 

The coefficients of this formula were derived by transforming the minimax 
rational approximation (in relative error, over the range 0 ^ x 2 ^ V 4 ) for 
arcsin (x)/x of the following form: 

arcsin(x) r a x + a 2 x 2 ”] 

x - 0o + J: "'Uo + b>"+^l 

Minimax was taken under the constraint that a 0 = 1 exactly. The relative error 
of this approximation is less than 2 -2K 3 . 

If 0 x ^ arccos(x) is computed as: 

arccos(x) = —— arcsin(x). 

z 

2. If % < x^ 1 , then compute arccos(x) essentially as: 


arccos(x) = 2 • arcsin 
This case is now reduced to the first case because within these limits, 



This computation uses the real square root subprogram ( sqrt ). 

If Vz < x ^ 1 , arcsin(x) is computed as: 

arcsin (x) = —- — arccos(x). 

Implementation of the above algorithms (steps 1 and 2) was carried out with care 
to minimize the round off errors. 

3. If — 1 5s x < 0, then arcsin(x) = — arcsin |x| 
andarccos(x) = * — arccos |x|. 

This reduces these cases to one of the two positive cases. 

Effect of an Argument Error 
A 

E ^ —- - For small values of x, E ~ A. Toward the limits ( ± 1) of the 

V 1 ~ x 2 v ' 

range, a small A causes a substantial error in the answer. For the arcsine, c ~ S 

if the value of x is small. 

ASIN/ACOS 

Algorithm 

If x is R*4, then ASIN(x) = ARSIN(x) and ACOS(x) « ARCOS(x) 

If x is R* 8 , then DASIN(x) = DARSIN(x) and DACOS(x) = DARCOS(x) 

If x is R*16, then QASIN(x) = QARSIN(x) and QACOS(x) = QARCOS(x) 
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DARSIN/DARCOS 


Algorithm 

1. If 0 y%, then compute arcsin (x) by a continued fraction of the form: 


arcsin(x) as x + x 3 • F where 

_ d t d 2 d 3 dt 

Cl (X 2 + c 2 ) + (x 2 + c 3 ) + (x 2 + c 4 ) + (x 2 + c 5 )' 


The relative error of this approximation is less than 2 - 57 2 . 

The coefficients of this formula were derived by transforming the minimax 
rational approximation (in relative error, over the range 0 ^ x 2 *4) for 
arcsin( x) / x of the following form: 


arcsin(x) 

x 


L b 0 + b ix- + hox 4 + f7 3 x e 


Minimax was taken under the constraint that a 0 = 1 exactly. 
If 0 ^ x ^ Vz, arccos(x) is computed as: 

arccos(x) = — arcsin(x). 


2. If % < x ^ 1, then compute arccos (x) essentially as: 
arccos(x) = 2 • arcsin 
This case is now reduced to the first case because within these limits, 



This computation uses the real square root subprogram (dsqrt). 
If V 2 < x 1, arcsin(x) is computed as: 



arcsin(x) 


—— arccos(x). 


Implementation of the above algorithms (steps 1 and 2) was carried out with care 
to minimize the round-off errors. 

3. If — 1 ^ x < 0, then arcsin(x) = — arcsin jx|, and arccos(x) = — arccos |x|. 

This reduces these cases to one of the two positive cases. 


Effect of an Argument Error 

A 

E ~ n - r t . For small values of x, E ~ A. Toward the limits ( ± 1) of the 

VI — x- v ' 

range a small A causes a substantial error in the answer. For the arcsine, e ~ 8 if 

the value of x is small. 


DASIN/DACOS 

These names are aliases for DARSIN and DARCOS. 
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QARSIN/QARCOS 


Algorithm 


1. If 0 x then compute arcsin (x) by a minimax rational approximation of 


the following form: 
w — 2x 2 , and . 

arcsin 6 x+ x • w\ 


a Q + w[a 1 + a 2 w± + g^\ 

b 0 + b \ w + . . . 4- b 8 vv 8 + 


Coefficients { a, , 6,} were determined by a minimax technique and the relative 
error of this approximation is less than 16~ 28 . The order of evaluating this 
rational form was so chosen as to reduce round-off errors. 

If 0^ x ^ y, arccos (x) is computed as: 

arccos (x) = y— arcsin (x). 

2. Ify < x ^ 1, then compute arccos (x) essentially as: 
arccos (x) = 2 • arcsin 1 ~ j 

Or more specifically, w = 1 — x, z = V 2 (1 — x), and 
arccos 6c ) z -f z w [oq + the above rational form]. 

This case is now reduced to the first case because, within these limits, 



This computation uses the square root subroutine (qsqrt). 
If 2 < x ^ 1, arcsin (x) is computed as: 

arcsin (x) = y— arccos (x). 

3. If - 1 S x < 0, then arcsin (x) = —arcsin |x| 

and arccos (x) — v —arccos | x|. 

This reduces these cases to one of the two positive cases. 


Effect of an Argument Error 

A 

E —• Fo r a small value of x, E —• A. Towards the limits (±1) of the 

range, a small A causes a substantial error in the answer. For arcsin, e ~ 8 if the 
value of x is small. 
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Arctangent Subprograms 


ATAN 

Algorithm 

1. Reduce the computation of arctan (x) to the case 0 ^ x <S 1, by using 
arctan (— x) = — arctan (x), or 


arctan 


(is)-i- 


arctan x. 


2. If necessary, reduce the computation further to the case lx! Sa tan 15° by using 


/V 3 • x — 1 \ 

arctan (x) = 30° + arctan I ^ J- 


The value of 


IV 3 > x - 


^ tan 15° if the value of x is within the range, 


...|x+ V3 | = _... 

tan 15° < x sS 1. The value of ( V 3 • x — 1) is computed as 
(V3 — l)x — 1 + x to avoid the loss of significant digits. 


3. For |x| 5= tan 15°, use the approximation formula: 

-— = 0.60310579 - 0.05160454x 2 + 


0.55913709 
x 2 + 1.4087812 * 


This formula has a relative error less than 2 -271 and can be obtained by 
transforming the continued fraction 

x 2 

arctan (x) % 2 5 

* ” 1 3 + / 5 \ 

(t + * ) _ 

( 75 3375 \ 

— —x ~ 2 H— y7— I but *h e b^ie 


value of tv is 


4*5 
7 • 7 • 9 


(tHi + * 2 ) + 


The original continued fraction can be obtained by transforming the Taylor 
series into continued fraction form. 


Effoet of an Argument Error 

E ~ — P— 9 . For small values of x, e ~ 8 ; as the value of x increases, the effect 
1 + x 2 

of 8 upon c diminishes. 

ATAN/ATAN2 

Algorithm 

1. For arctan (xi, x 2 ): 

If Xi < 0, use the identity arctan (x ]} x 2 ) = —arctan ( — Xi, x 2 ). 

Hence we may assume that x x ^ 0. Then: 


If either x 2 = 0 or pH > 2 24 , the answer = 


If x 2 < 0 and — < 2 -24 , the answer = it. 
x 2 
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For the general case, if x 2 > 0, the answer = arctan ©) , and 

®D- 


if *2 < 0, the answer = ?r — arctan 


2. The computation of arctan above, or of arctan(x) for the single argu¬ 

ment case, follows the algorithm given for the subprogram atan with a 
single argument. 

Effect of an Argument Error 

A 


E 


1 + x 

of c upon 8 diminishes. 


-. For small values of x,« ~ 8, and as the value of x increases, the effect 


DATAN 

Algorithm 

1. Reduce the computation of arctan (x) to the case 0 ^ x ^ 1 by using 

arctan( — x) = — arctan(x) and 

arctan \ =-£— arctan |x|. 

jx] 2 11 

2. If necessary, reduce the computation further to the case |x| ^ tan 15° by using 


arctan(x) = 30° + arctan 


/ V3-x- 1 \ 
\ x + \/3 / 


, , IV3 • x — 1 

The value of ; 7=“ < tan 15°, if the value of x is within the range tan 

I x + \/3 — 

15° < x ^ 1. The value of (V3 • x — 1) is computed as (V3 — 1) x — 1 + x 
to avoid the loss of significant digits. 

3. For |x| 5= tan 15°, use a continued fraction of the form: 

arctan(x) o [” f 02 03 “I 

- - 1 + “ (6, + x 2 ) - (h~ + * 2 ) - (fc 3 + i 2 ) J 

The relative error of this approximation is less than 2 _<J0 - 7 . 

The coefficients of this formula were derived by transforming a minimax 
rational approximation (in relative error, over the range 0 ^ x 2 2s 0.071797) 
for arctan(x)/x of the following form: 


arctan(x) 


o !" C 0 +CiX 2 + CjX 4 + c :i x 6 ~ 
a.Q + x + d\X“ + doX* + x 6 _ 


Minimax was taken under the constraint'that a 0 — 1 exactly. 

Effect of an Argument Error 

E ~ :-7 For small values of x, e ~ 8, and as the value of x increases, the effect 
1 + x- 

of c upon 8 diminishes. 


DAT AN / DATAN2 
Algorithm 

1. For arctan ( x lf x >): 

If Xj < 0, use the identity arctan(xj, x^) = —arctan ( — x u x a ). 
Hence we may assume that Xi ^ 0. Then: 

l*i 


If either x a = 0 or 


*2 


> 2 50 , the answer = 
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If x 2 < 0 and 


*1 


*2 


< 2~ 56 , the answer = it. 


For the general case, if x 2 > 0, the answer = arctan o , and 

©)• 


if x 2 < 0, the answer = n — arctan 


2. The computation of arctan ^ ^ above, or of arctan(x) for the single argu¬ 

ment case, follows the algorithm given for the subprogram DATANwith a single 
argument. 


Effect of an Argumont Error 

E ~ For small values of x, e 8, and as the value of x increases, the effect 

of c upon 8 diminishes. 


QATAN/QATAM2 

Algorithm 

1. For arctan(x), if x < 0, then arctan(x) = — arctan(|x|). So assume x Si 0. 

( 2 _j 

—^32— 

Define origins to be approximately jg ir, i = 0, 1, 2,. . . , 8 in such a way 

that tan $i are exact short form numbers. 0 8 = ~ exactly. 

3. Pi x < fii + i for i = 0,1,2,..., 7, then use the following reduction: 
arctan (*) = 0, + arctan ( *“,*£,* ) 

If p 8 ^ x < oo, use the reduction: 
arctan(x) = — + arctan 

Note the quantity within the parentheses on the right is in either case within 
the basic range ( p 0i pj, that is, is less than-j^-in magnitude. 




i 1 


4. 


5. 


Within the basic range 




a minimax approximation of the fol¬ 


lowing form is used to compute arctan (x): 

arctan (x) as x + «i x 3 + a 2 x 5 + ... + a i2 x 25 
The relative error of this approximation is less than 2~ 112 . 

It is sufficient to compute the last three terms in double precision. 


For arctan (xi, x 2 ): 

If Xi < 0, use the identity arctan (xi, x 2 ) = — arctan (|xi|, x 2 ). 
Hence we may assume that x x ^ 0. Then: 


if either x 2 = 0 or 



> 2 112 , the answer as . 


If x 2 < 0 and 


Xi 


x 2 


< 2 -112 , the answer as 


For the general case, if x 2 > 0, the answer = arctan ( — 

\ *2 


if x 2 < 0, the answer = ?r — arctan 


( 
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Here arctan 


(lil) 


is computed as described in steps 1 through 4 above. 


except for the following simplification for the case /? 8 ^ 


*1 

*2 


arctan (l^l) = T + arctan (~W L ) 


< oo: 


2 \ l*iI 

This combines two needed extended precision divisions into one for this case. 

Effect of an Argument Error 

E ~ f —— . For a small value of x, e —- 8, and as the value of x increases, the 

1 + x~ 

effect of 8 upon t diminishes. 

Error Functions Subprograms 

ERF/ERFC 

Algorithm 

1. If 0 ^ x Sj 1, then compute the error function by the following approximation: 

erf(x) = x(a 0 4- a x x 2 4- a 2 x 4 4- ... 4- a 5 x 10 ). 

The coefficients were obtained by the minimax approximation (in relative 
error) of erf(x )/x as a function of x 2 over the range 0 ^ x 2 5s 1. The relative 
error of this approximation is less than 2~ 24 6 . The value of the complemented 
error function is computed as erfc(x) = 1 — erf(x). 

2. If 1 < x < 2.040452, then compute the complemented error function by the 
following approximation: 

erfc (x) ss b 0 4* b x z 4- b 2 z 2 4- ... 4- b 9 z 9 
where z = x — T 0 and T 0 ss 1.709472. The coeflBcients were obtained by the 
minimax approximation (in absolute error) of the function f(z) = erfc(z 4- 
T 0 ) over the range — 0.709472 z ^ 0.33098. The absolute error of this 
approximation is less than 2~ 315 . The limits of this range and the value of the 
origin T 0 were chosen to minimize the hexadecimal round-off errors. The value 

of the complemented error function within this range is between and 0.1573. 

The value of the error function is computed as erf(x) = 1 — erfc(x). 

3. If 2.040452 ^ x < 13.306, then compute the complemented error function by 
the following approximation: 

erfc(x) £* e ~ z ' F/x where z = x-and 
_ Ci 4- c 2 z 4- c 3 z 2 
C ° d x z 4- d 2 z 2 4- z 3 ‘ 

The coefficients for F were obtained by transforming a minimax rational 
approximation (in absolute errors, over the range 13.306 -55 rg tv 2.040452 -2 ) 
of the function f(w) = erfc(x) • x • e j2 , tv = x -2 , of the following form: 

a 0 + aitv + a 2 tv 2 4- a 3 w 3 
f\ w ) — b 0 + bitv + w 2 

The absolute error of this approximation is less than 2 -261 . This computation 
uses the real exponential subprogram (exp). 


If 2.040452 ^ x < 3.919206, then the error function is computed as 
erf(x) = 1 — erfc(x). 

If 3.919206 ^ x, then the error function is = 1. 
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4. If 13.306 :Sj x, then the error function is as 1, and the complemented error func¬ 
tion is as 0 (underflow). 

5. If x < 0, then reduce to a case involving a positive argument by the use of the 
following formulas: 

erf( — x) = — erf(x), anderfc ( — x) = 2 — erfc(x). 



Effect of an Argument Error 

E ~ e ~ x2 • A . For the error function, as the magnitude of the argument exceeds 1, 
the effect of an argument error upon the final accuracy diminishes rapidly. For 
small values of x, c ~ S. For the complemented error function, if the value of x is 

q — 

greater than 1, erfc(x) ~ ^ . Therefore, e ~ 2 x* • 8. If the value of x is negative 
or less than 1, then e ~ e - * 4 • A. 


DERF/DERFC 

Algorithm 

1. If 0 ^ x < 1, then compute the error function by the following approximation: 

erf(x) as x(a 0 + a x x 2 + a 2 x* + ... + a n x 22 ). 

The coefficients were obtained by the minimax approximation (in relative 
error) of erf(x)/x as a function of x 2 over the range 0 ^ x 2 ^ 1. The relative 
error of this approximation is less than 2 -56 - 9 . The value of the complemented 
error function is computed as erfc(x) = 1 — erf(x). 

2. If 1 ^ x < 2.040452, then compute the complemented error function by the 
following approximation: 

erfc(x) as bo + b x z + b 2 z 2 + ... b x sz 16 

where z = x — T 0 and T 0 as 1.709472. The coefficients were obtained by the 
minimax approximation (in absolute error) of the function f(z)= erfc (z + To) 
over the range —0.709472 z ^ 0.33098. The absolute error of this approxi¬ 
mation is less than 2~ 60 3 . The limits of this range and the value of the origin 
T 0 were chosen to minimize the hexadecimal round-off errors. The value of the 

complemented error function within this range is between and 0.1573. The 

value of the error function is computed as erf (x) = 1 — erfc(x). 

3. If 2.040452 5= x < 13.306, then compute the complemented error function by 
the following approximation: 

erfc(x) as e~ z • F/x where z = x 2 and 

„ __ di d 2 da d,7 

C ° (z + Ci)+ (z + C2)+ (z + Ce) + (z + Ct)’ 

The coefficients for F were derived by transforming a minimax rational approxi¬ 
mation (in absolute errors, over the range 13.306~ 2 ^ w 5=1 2.040452 -2 ) of the 
function f(w) — erfc(x) • x • e **, w = x~ 2 , of the following form: 

a 0 + a x tv + (hw 2 + ... + a 7 w 7 
f W ~ b 0 + b x w + b 2 w 2 + ... + bow* +w 7 ’ 

The absolute error of this approximation is less than 2 -57 0 . This computation 
uses the real exponential subprogram (dexp). If 2.040452 ^ x < 6.092368, then 
the error function is computed as erf (x) = 1 — erfc(x). 

If 6.092368 ^ x, then the error function is as 1. 

4. If 13.306 ^ x, then the error function is as 1, and the complemented error 
function as 0 (underflow). 
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5. If x < 0, then reduce to a case involving a positive argument by the use of the 
following formulas: 

erf( — x) = — erf(x), anderfc ( — x) = 2 — erfc(x). 

Effect of an Argument Error 

E ~ e~* 2 • A. For the error function, as the magnitude of the argument exceeds 
1, the effect of an argument error upon the final accuracy diminishes rapidly. For 
small values of x, c ~ 8. For the complemented error function, if the value of 

e -a-2 

x is greater than 1, erfc(x) ~ . Therefore, c ~ 2x 2 • 8. If the value of x 

is negative or less than 1, then e ~ e -J ' 2 • A. 


QERF/QERFC 

Algorithm 

1. If 0 ^ x^ 1, then: 

Write a(z) = — erf(x) where z = x 2 

Then x.2xa' + a = (erf(x)) where a' = = e~ x - 

that is 2za' + a = e - * 

Then 2za" + 3a' = — e~~ = —(2za r + a) 
so that 2za" + (2z + 3) a' + a = 0 
Now integrate twice 

* 

2za' + 2 za + a — / adz — A where A is a constant 
o 

But if z = 0 then x = 0 and a = 1 so that A = 1 

Hence * . 

_ 1 J 

2a' + 2a + -----2-= 0 


and 


a + 


a — 1 


/ adz 


\dz — B = 


Now write a = 1 + 2 a i z i as an approximation to a and solve 

<=i 


^ / )2a + 


a — I 


f adz( i _ 


d 3 = /? + rT* , 

m+1 


Where T* = 2 T*, i X x* is the Chebyshev polynomial over the appropriate 

m i=0 m 

range. 

Equating coefficients of powers of z and multiplying the coefficient f of z l by i 2 
we have: 

3a x + 1 = t T* 

m+1,1 

10a 2 + 3aj = 4 T* 

m+I, 2 


m(2m + l)a + (2m — 1) am — 1 = m 2 rT* 

m m+l, m 

(2 m + 1) am — (m + 1 ) 2 r T* 

m+l, m+l 
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and we can solve these equations to obtain 

2 2 2 . , 

— fli, — • • • — O'ta and r. 

y it y tt y ir 


Then erf(x) = x +^—=— 1^ x 4* x^^—=ai ^(x 2 )* 


2 . 


If 1 ^ x ^ 2.84375, then: 

Write b(z) — erfc(x) where z = x — f „ 

Then b' =-4e-* 2 

V* 

2 

and b' = —= 2 x e - * 2 

V 

so that b" 4- 2(z 4- # 0 ) b' = 0 
Now integrate twice 

b' 4- 2(z 4- t 0 ) b —2 f bdz = A 
b + 2(z 4- t 0 ) / bdz —4fjbdzdz = Az 4- B 

m 

Let b = 2 bi z* be an approximation to b and solve the equations: 

i=0 

b 4- 2(z 4-f 0 ) / bdz — 4 f / bdzdz = Az + B + r T* + <rT* 

0 0 0 m+2 m+l 

Nowz = 0 ^ A = b'(0) 4- 2t 0 b(0) = erfc'(fo) + 2f 0 erfc(t 0 ) 
and B = b(0) = erfc (# 0 ) 

Hence the equations solved are: 


bo 

= tT* 

m , 0 

4-<rT* 

tn+l, 0 

4- erfc(< 0 ) 

b\ +2 f 0 b» 

= tT* 

m, 1 

4- aT* 

m+l, 1 

4- erfc' (f 0 ) +2 f 0 erfc (f«) 

b 2 4- # 0 bi 

= r T* 

m, 2 

4- <r T* 

m+l, 2 


b A + -jbi 

4- t 0 b 2 = rT* 

O m, 3 

4-<rT* 

m+l, 3 




\^y" \ 


b m + ~T~ - b m _2 + “ #obm-l — tT* + <tT* 

m(m 1) m m, m m+i, m 


2m — 2 
(m + 1 )m 
2m 


b m _! + ——rf 0 b m = r T* +<;P 

m T 1 m, tn+1 mm, m—1 


b- 


= rT* 

m+l, m+2 


(m 4- 2) (m 4- 1) 

Finally 

erfc(x) — b(z) where z = x — £,» 
3. If 2.84375 ^ x ^ 13.306, then: 

Write c(z) — x e* 2 erfc(x) where z = 1/x 2 

Then d — /— 4* 2 x c- = x \ r- 

Vir /- 2 


i.e. 2z 2 c' 4- (z 4- 2) c =—= 

V 

m+l 

Let ’ c = 2 CjZ* be an approximation to c and solve the equations: 
i=o 

2 z 2 c 4- (z 4- 2) c = -A 4- r T* 

V^r m+2 


c 
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Then use the approximation 

T* m + i 3 ® 0 

to approximate c m + 1 z m+1 by a polynomial of degree m. 
The equations solved in (A) are: 

2c » = vr + r -M 

c o 4" 2c x — t T* m + 2 ,i 


(2m+ \)c m + 2c m+1 = r T* m + 2 , m + i 
(2m+3)c m + 1 — t X 1 * m + 2 , m +1 


Finally: 

erfc (x) = cfr,) where z= 1/x 2 

4. If 13.306 ^ x, then erf6c>) = 1 and erfcYx>) = 0. 

5. If 0> x, then erffxj = — erff— x), and erfc(x) = 2 — erfcf— x). 


Effect of an Argument Error 

E~-x 2 . a For the error function, as the magnitude of the argument exceeds 
1 , the effect of an argument error upon the final accuracy diminishes rapidly. 
For small values of X, e — 8. For the complicated error function, if the value of 

A"is greater than 1, erfc (x) 

Therefore, c — 2 X 2 *8. If the value of x is negative or less than 1, then 
c •— e-* 2 • A. 

Exponential Subprograms 
EXP 

Algorithm 

1. If x < — 180.218, then 0 is given as the answer via floating-point underflow. 

2. Otherwise, divide x by loge2 and write 

x 

y = —r- = 4 a — b — d 

9 loge2 

where a and b are integers, 0 ^ b 5s 3 and 0 d < 1. 

3. Compute 2~ d by the following fractional approximation: 


617.97227 * 

0.034657359 d 2 + d + 9.9545948 - j 2 + 3 ^ 4^497 

This formula can be obtained by transforming the Gaussian continued fraction 
z z z z z z z z 
e * ” 1 ” TF F TT F 5+ T 7+ I' 

The maximum relative error of this approximation is 2 -29 . 

Multiply 2~ d by 2~ b . 

Finally, add the hexadecimal exponent a to the characteristic of the answer. 
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Effect of an Argument Error 

c — A. If the magnitude of x is large, even the roundoff error of the argument 
causes a substantial relative error in the answer because A = 8 • x. 


DEXP 


Algorithm 

1. If x < — 180.2187, then 0 is given as the answer via floating-point underflow. 

2. Divide x by loge2 and write 

x = ^4a - b - • loge2 - r 

where a, b, and c are integers, 0 ^ b ^ 3, 0 ^ c ^ 15, and the remainder r is 


xt ri in fKo ronrro fi 

l» AWtlU V**V AMJLA^v V 


— r • !osl2. This reduction oarripd nnt in an extra 

16 .. " 


precision to ensure accuracy. Then e* = 16® • 2~ b • 2 ~ c/16 • e _r . 

3. Compute e~ r by using a minimax polynomial approximation of degree 6 over 

the range 0 r < — * log*2. In obtaining coefficients of this approximation, 
16 

the minimax of relative errors was taken under the constraint that the constant 
term a 0 shall be exactly 1. The relative error is less than 2~ 56 - 87 . 

4. Multiply e -r by 2 -c/16 . The 16 values of 2 -c/16 for 0 5= c ^ 15 are included in 
the subprogram. Then halve the result b times. 

5. Finally, add the hexadecimal exponent of a to the characteristic of the answer. 


Effort of an Argument Error 

c — A. If the magnitude of x is large, even the roundoff error of the argument 
causes a substantial relative error in the answer because A = S • x. 


CEXP/CDEXP 

Algorithm 

The value of e x+iy is computed as e x • cos(y) + i • e x • sin(y). The algorithms for 
both complex exponential subprograms are identical. Each subprogram uses the 
appropriate real exponential subprogram (exp or dexp) and the appropriate real 
sine/cosine subprogram (cos/ sin or dcos/dsin). 

Effect of an Argument Error 

The effect of an argument error depends upon the accuracy of the individual 
parts of the argument. If e J +iu — R • e iH , then H = y and e(R) ~ A (x). 


QEXP 

Algorithm 

1. Basic computation is that of 2 X . For QEXP entry, multiply xby log t e in a 31 hex¬ 
adecimal digit arithmetic, and raise the result to the power of 2. 

2. Decompose xas x * Ap — q — rwhere pis an integer, q = 0,1,2, or 3, and 0 ^ 
r < 1 . 

3. Find two indices i, j, 0^ / SS8,0^y ^3 such that 4/ + j is the integer nearest to 
32r. 

Using these indices, select two encoded constants a,, fij where 

«/-&-"], Py-D-'®]. 

Here the bracket indicates rounding to the nearest 17 binary digit number. 
Obtain the product Vy — a,/ Sj. 
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4. Obtain the reduced argument s= —r — log 2 (¥„) accurately by subtracting log 2 
0) — log 2 a t -f log 2 Pj -f in an extra precision. Constants log 2 a ,and log 2 
are encoded in 31 hexadecimal digits of accuracy. Then s is approximately 

bounded by ±-^r 

5. Compute 2 s by a minimax approximation of the form: 



where Pand Q are polynomials of degree 2. 

6 . Then 2*= 16' • (2“*¥ tf ) • 2®. In assembling this product a virtual rounding 
is applied. 

7. The limited use of extra precision arithmetic in the above computation 
enhances accuracy of both QEXP and A **B application (see note below). 

Effect of an Argument Error 

€ — A. If the magnitude of x is large, even the roundoff error of the argument 
causes a substantial relative error in the answer because A = 8 • x. 

CQEXP 

Algorithm 

The value of e x + iy is computed as e* • cos (y) + / • e x • sin (y). The algorithms 
for both complex exponential subprograms are identical. Each subprogram uses 
the appropriate real exponential subprogram (qexp) and the appropriate real sine/ 
cosine subprogram (qcos/qsin). 

Effect of an Argument Error 

The effect of the argument error depends upon the accuracy of the individual parts 
of the agreement. Ife x + ,> = R • e iH , then H — y and e (R) — A (x). 

Gamma and Log Gamma Subprograms 

GAMMA/ALGAMA/LGAMMA 

Algorithm 

1. If 0 < x fi 2 -252 , then compute log-gamma as logj^x) s* — loge(x). 

This computation uses the real logarithm subprogram ( alog). 

2. If 2 -252 < x < 8 , then compute log-gamma by taking the natural logarithm of 
the value obtained for gamma. The computation of gamma depends upon the 
range into which the argument falls. 

F(x "hi) 

3. If 2“ 252 < x < 1, then use r(x) = - to reduce to the next case. 

x 

4. If 1 x <£ 2, then compute gamma by the minimax rational approximation (in 
absolute error) of the following form: 

z [a 0 + o x z + fl 2 z 2 + O 3 Z®] 
r(x) sc ° + ~b 0 + b,z + b 2 Z> + z* 

where z = x — 1.5. The absolute error of this approximation is less than 2 - 26 0 . 

5. If 2 < x < 8 , then use r(x) = (x — 1) r(x — 1) to reduce step by step to the 
preceding case. 

6 . If 8 ^ x, then compute log-gamma by the use of Stirlings formula: 
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l0g e r(*) SS X(loge( X ) - 1) - % l0ge(x) + Vz log e ( 27 r) + G(x). 

The modifier term G(x) is computed as 
G(x) ~ doX~* + d x x~-. 

These coefficients were obtained by a form of minimax approximation minimiz¬ 
ing the ratio of the absolute error to the value of x. The absolute error is less 
than x • 2 ~ 28 2 . Remembering the fact that x < log^r(x) in this range, the 
contribution of this error to the relative error of the value for log-gamma is less 
than 2~ 26 - 2 . This computation uses the real logarithm subprogram ( alog). 

For gamma, compute r(x) = e", where y is the value obtained for log-gamma. 
This computation uses the real exponential subprogram (exp). 



Effect of an Argument Error 

c ~ if/ (x) • A for gamma, and E ~ ^ (x) • A for log-gamma, where ^ is the 
digamma function. 

If — < x < 3, then — 2 < ^ (x) < 1. Therefore, E ~ A for log-gamma. How- 

Jd 

ever, because x — I and x = 2 are zeros of the log-gamma function, even a small 
8 can cause a substantial e in this range. 

If the value of x is large, then \jj (x) ~ log e (x). Therefore, for gamma, c ~ 8 
x • loge (x). In this case, even the roundoff error of the argument contributes 
greatly to the relative error of the answer. For log-gamma with large values of x, 
€ ~ 8 . 


DGAMMA/DLGAMA/LGAMMA 

Algorithm 

1. If 0 < x 2 - 252 , then compute log-gamma as log e r(x) as — loge(x). 

This computation uses the real logarithm subprogram (dlog). 

2. If 2 - 252 < x < 8, then compute log-gamma by taking the natural logarithm 
of the value obtained for gamma. The computation of gamma depends upon the 
range into which the argument falls. 

r(x + 1) 

3. If 2 -252 < x < 1, then use r(x) = -—-to reduce to the next case. 

4. If 1 2s x ^ 2, then compute gamma by the minimax rational approximation (in 
absolute error) of the following form: 

z [a 0 + a t z + ... + agz 6 } 
r (x) ~ c ° b 0 + biz + ... + b 9 z 6 + z 1 
where z = x — 1.5. The absolute error of this approximation is less than 2 -59 - 3 . 

5. If 2 < x < 8, then use r(x) = (x — 1) r(x — 1) to reduce to the preceding 
case. 

6. If 8 ^ x, then compute log-gamma by the use of Stirlings formula: 

log«r(x) = X(loge(X) - 1) - %loge(x) + Mjlog^ir) +G(x). 

The modifier term G(x) is computed as 

G(x) as dox -1 + diX~ 3 + d 2 x~ 4 5 + d 3 *~ 7 * + d t x~ 9 . 

These coefficients were obtained by a form of minimax approximation minimiz¬ 
ing the ratio of the absolute error to the value of x. The absolute error is less 
than x • 2“ 561 . Remembering the fact that x < loger(x) in this range, the 
contribution of this error to the relative error of the value for log-gamma is less 
than 2 -561 . This computation uses the real logarithm subprogram (dlog). For 
gamma, compute r(x) = e v , where y is the value obtained for log-gamma. 
This computation uses the real exponential subprogram (dexp). 
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Effect of an Argument Error 

e \f/(x) • A for gamma, and E ~ i^(x) • A for log-gamma, where ^ is the 
digamma function. 

If — < x < 3, then — 2 < if/(x) < 1. Therefore, E ~ A for log-gamma. How¬ 
ever, because x — 1 and x = 2 are zeros of the log-gamma function, even a small 
8 can cause a substantial e in this range. 

If the value of x is large, then <//(x) ~ log e (x). Therefore, for gamma, 
€ ~ 8 • x • log e (x). In this case, even the round-off error of the argument con¬ 
tributes greatly to the relative error of the answer. For log-gamma with large 
values of x, c 8. 

LGAMMA 

Algorithm 

If JC is R*4, then LGAMMA 6 0 = ALGAMA (x). 

If xis R*8, then LGAMMA (x) = DLGAMA (x). 

Hyperbolic Sine and Cosine Subprograms 

SINH/COSH 

Algorithm 

1. If [x] < 1.0, then compute sinh(x) as: 

sinh(x) s x + CiX 3 + c 2 x 5 + c :i x 7 . 

The coefficient c ( were obtained by the minimax approximation (in relative 
error) of — as a function of x 2 . The maximum relative error of this 

approximation is 2 -25 6 . 

2. If x ^ 1.0, then sinh(x) is computed as: 

sinh(x) = (1 + 8) [ e< r+loR # 0 _ ^2^ g./ +l«K e t J 

Here, 1 + 8 = ~ , so that this expression is theoretically equivalent to 

[e J — e -J ]/2. The value of v (and consequently those of log t .o and 8) was so 
chosen as to satisfy the following conditions: 

a) v is slightly less than Vfe, so that 8 > 0 and small. 

b) loget? is an exact multiple of 2 _lfi . 

The condition b) ensures that the addition x + log e v is carried out exactly. This 
maneuver was designed to reduce the roundoff errors and also to enlarge the 
limits of acceptable arguments. This computation uses the real exponential 
subprogram (exp). 

3. If x 5s — 1.0, use sinh(x) = — sinh( |x|) to reduce to case 2 above. 

4. If cosh (x) is desired, then for all valid values of arguments use the identity: 
cosh(x) = (1 + 8) [e r+,og « i; + c L 7e x+l0 V']. Here the notation and the consid¬ 
eration are identical to case 2 above. This computation uses the real exponential 
subprogram (exp). 

Effect of an Argument Error 

For the hyperbolic sine, E ~ A • cosh (x) and« ~ A • coth(x). 
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For the hyperbolic cosine, E ~ A • sinh(x) and e ~ 8 • tanh(x). 

Specifically, for the cosine, e ~ A over the entire range; for the sine, e ~ 8 for 
small values of x. 


DSINH/DCOSH 


Algorithm 

1. If |s| < 0.881374, then compute sinh(x) as: 

sinh (x) a* CqX + CjX 3 + + ... + Ce* 13 . 


The coefficients c t were obtained by the minimax approximation (in relative 
sinh(x) 

error) of-as the function of x 2 . Minimax was taken under the constraint 

' x 

that c u — l exactly. The maximum relative error of this approximation is 2~ 55,7 . 

2. If x — 0.881374, then sinh(x) is computed as: 

sinh(x) = (1 + 8) [e‘ r+log e ,) — o 2 /e* +los « v J. 


Here, 1 + 8 = —, so that this expression is theoretically equivalent to 

Zt/ 

[e* — e~*]/2. The value of v (and consequently those of loget? and 8) was so 
chosen as to satisfy the following conditions: 

a) v is slightly less than Vz, so that 8 > 0 and small. 

b ) loget; is an exact multiple of 2~ 16 . 

The condition b ) insures that the addition x + logeU is carried out exactly. This 
maneuver was designed to reduce the round-off errors and also to enlarge the 
limits of acceptable arguments. This computation uses the real exponential sub¬ 
program (dexp). 

3. If x is —0.881374, then use sinh(x) = —sinh( [xj) to reduce to case 2 above. 

4. If cosh(x)is desired, then, for all valid arguments use the identity: 

cosh(x) = (1 + 8) [e r+log . v + t? 2 /e* +log e t ’]. Here the notation and the consid¬ 
eration are identical to case 2 above. This computation uses the real exponential 
subprogram (dexp). 


Effect of an Argument Error 

For the hyperbolic sine, E ~ A • cosh(x) and e ~ A • coth(x). 

For the hyperbolic cosine, E ~ A • sinh(x) and « ~ A • tanh(x). 

Specifically, for the cosine, e ~ A over the entire range; for the sine, * ~ 8 for 
the small values of x. 


QSINH/QCOSH 

Algorithm 

1. If |x| < 1 then compute sinh(x) as: 

sinh(x) sco* + CiX 3 + c 2 x® + ... + Ci 2 x 25 . 

The coefficients c { were obtained by the minimax approximation (in relative 

error) of as the function of x*. Minimax was taken under the constraint 

x 

that Co — 1 exactly. The maximum relative error of this approximation is less 
than 2 -112 . 

2. If x ^ 1 then sinh(x) is computed as: 

sinh(x) = (1 + 8) [e*-*- 10 *.* - o 2 /e* +log «*]. 

Here, 1 + 8 = so that this expression is theoretically equivalent to 

Z y 

[e* — e -a? J/2. The value of v (and consequently those of log*!? and 8) was so 
chosen as to satisfy the following conditions. 
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a) 13 is slightly less than —-, so that 8 > 0 and small. 

b) log*# is an exact multiple of 2 “ ie . 

The condition b) insures that the addition x + log,,e is carried out exactly. This 
maneuver was designed to reduce the round-off errors and also to enlarge the 
limits of acceptable arguments. This computation uses the exponential subpro¬ 
gram. Accuracy of the quotient v 2 /e x+lng ' v is not critical if x is large. For x > 
21.85, a double precision division yields a sufficiently accurate result. 

3. If x ^ — 1 then use sinh ( x ) = — sinh (|x|) to reduce the case to 2 above. 

4. If cosh(x) is desired, for all allowable arguments use the identity: cosh(x) 
= (14-8) [e r+IO,r «” + t 3 - , /e r+,<> V]. Here the notation and the consideration 
are identical to the case 2 above. 

Effect of an Argument Error 

For hyperbolic sine, E A • cosh(x) and « ~ A • coth(x). For hyperbolic cosine, 
E ~ A • sinh(x) and « ~ 8 • tanh(x). In other words, for cosine, c -■ A over the 
the entire range; for sine c ~ 8 for small values of x. 


Hyperbolic Tangent Subprograms 


TANH 


Algorithm 


1 . 

2 . 


If |x|^ 2 -12 , then tanh(x) as x. 

If 2 -12 < |x| ^ 0.7, use the following fractional approximation: 


tanh(x) 

x 


T 0.8145651 1 

“ 1 - *’|_0.<XB7828 + ^+2171749 J- 


The coefficients of this approximation were obtained by taking die minimax 
of relative error, over the range x- < 0.49, of approximations of this form under 
the constraint that the first term shall be exactly 1.0. The maximum relative 
error of this approximation is 2 -26 4 . 

2 

3. If 0.7 <x< 9.011, then use the identity tanh(x) = 1 — 

The computation for this case uses the real exponential subprogram (exp). 

4. If x ^ 9.011, than tanh(x) as 1. 

5. Ifx< —0.7, then use the identity tanh(x) = — tanh( — x). 


Effect of an Argument Error 

E —' (1 — tanh 2 x) A, and e ~ 


2a 


sinh ( 2 x) 

value of x increases, the effect of 8 upon e diminishes 


For small values of x, c ~ 8 , and as the 


DTANH 

Algorithm 

1. If |x| <[ 2~ 2K , then tanh(x) as x. 

2. If 2 _2H < |x| < 0.54931, use the following fractional approximation: 

tanh(x) dix* d 2 d s 

X ~~ C " X 2 + Cl + X 2 + C 2 + X 2 + C-A ’ 


This approximation was obtained by rewriting a minimax approximation of the 
following form: 

tanh(x) 9 do + OiX 2 + (hx* 

- s c 0 + x • + }, iX 2 4 . + x 8 * 
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Here the minimax of relative error, over the range x 2 ^ 0.30174, was taken 
under the constraint that c 0 shall be exactly 1.0. The maximum relative error of 
the above is 2 -63 . 

2 

3. If 0.54931 x < 20.101, then use the identity tanh(x) = 1-— — y. 

This computation uses the double precision exponential subprogram (dexp). 

4. If x ^ 20.101, then tanh(x) as 1. 

5. If x ^ — 0.54931, then use the identity tanh(x) = — tanh( — x). 

Effect of an Argument Error 

2 a 

E ~ (1 - tanh 2 x) d, and e ~ -rrrx- t - Fot sma11 values of x, c ~ 8 . As the 

smh ( 2 x) 

value of x increases, the effect of 8 upon t diminishes. 


QTANH 

Algorithm 

1. If |x| ^ 0.54931, use a minimax fractional approximation of the following form: 

, . . _ , x? (a o + a,x- 4- a-^x 4 + a 3 x 6 4- r^x 8 ) 

an ' x ' ~ x b 0 + bix 2 + box 4 + fc 3 x c + b±x H + x 10 

Approximation of this form attains accuracy better than 2 -112 for x in the above 
range. 

2. If 0.54931 < x ^ 39.1628, compute tanh(x) with the aid of the exponential 
subroutines as follows: 

tanh(z) = 1 -jnqrj-. 

Here if x > 21.14, the division is carried out in double precision to save execu¬ 
tion time. The quotient term is so small relative to 1 that double precision is 
accurate enough. 

3. If x > 39.1628, then tanh(x) a= 1 . 

4. If x ^ —0.54931, then use the identity tanh(x) = — tanh( — x) to reduce the 
case to either 3. or 4. above. 


2d 


Effect of an Argument Error 

E ~ (1 — tanh 2 x) d, and e ~ n . 

v sinh( 2 x) 

of x increases, the effect of 8 upon « diminishes. 


. For small values of x,« ~ 8 . As the value 




v.y, 

% 


Logarithmic Subprograms (Common and Natural) 

ALOG/ALOGIO 

Algorithm 

1. Write x = 16* • 2 -9 • m where p is the exponent, q is an integer, 0 2 s q ^ 3, 
and m is within the range, Vz m < 1 . 

2. Define two constants, a and b (where a = base point and 2~ b = a), as follows: 

If Vz ^ m < —=■, then a—Vz and b = 1. 

V •" 

If ~J= ^ m < 1, then a = 1 and b — 0. 

V 

m — a 1 + z 

3. Write z = - - —. Then, m = a • —-and \z < 0.1716. 

m + a 1 — z 11 

4 . Now, x=2‘ ip - q ~ b * j and log e Or) = (4 p — q — b) log e 2 + log e f J + y 
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5. To obtain log e ^y-~jy, first compute w = 2 z — ~q~^~+^~s^ (which is repre¬ 
sented with slightly more significant digits than z itself), and apply an approx¬ 
imation of the following form: 


, /i + z\ r c,w 2 -I 

l0& (r=7 ) ** w L c o + 

These coefficients were obtained by the minimax rational approximation of 
1/1 + z\ 

— loge I ~y~ZT~^ I over range z 2 t (0, 0.02944) under the constraint that 


Co 


shall be exactly 1.0. The maximum relative error of this approximation is less 
than 2 -25 - 33 . 

6. If the common logarithm is desired, then log 10 x = log 10 e • loge*. 


Effect of an Argument Error 

E — 8. Specifically, if 5 is the roundoff error of the argument, for example, 
8 — 6 • 10 -8 , then E~~ h 6 • 10“ 8 . Therefore, if the argument is close to 1, the 
relative error can be very large because the value of the function is very small. 


DLOG/DLOGIO 

Algorithm 

1. Write x = 16* • 2~ v • m where p is the exponent, q is an integer, 0 ^ q 5s 3, 
and m is within the range Vz ^ m < 1. 

2. Define two constants, a and b (where a — base point and 2 -b = a), as follows: 

If Vz Ss m < ~~=, then a = Vz and b = 1. 

V 

If ~== ^ m < 1, then a = 1 and b = 0. 

V 2 

m — a 1 4- z 

3. Write z — -;—. Then, m = a • -- and \z\ < 0.1716. 


m + a 


1 — z 


1 + z /I + z\ 

4. Now, x — 2 4p ~ 9 ~ b • y ~ ZT z > andlogeX = (4 p — q — b) loge2 + loge I j — - ). 

5. To obtain log e ^ - j - ~ first compute w = 2z = q~^~+ q $ a (which is repre¬ 

sented with slightly more significant digits than z itself), and apply an approx¬ 
imation of the following form: 

“ (i^) “ *['• + (- + * 

These coefficients were obtained by the minimax rational approximation of 

1 /l + z\ 

— loge I Y ' Z" ~ z I over ^e ran 8 e z ~ < (0.02944 ) under the constraint that c 0 

shall be exactly 1.0. The maximum relative error of this approximation is less 
than 2 - 60 55 . 

6. If the common logarithm is desired, then logio* = logi 0 e • loge*. 


Effect of an Argument Error 

E ~ 8. Therefore, if the value of the argument is close to 1, the relative error can 
be very large because the value of the function is very small. 
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CLOG/CDLOG 

Algorithm 

1. Write log* (x + iy) — a + ib. 

2. Then, a = loge |x + iy\ and b = the principal value of arctan (y, x). 

3. log* |x + iy\ is computed as follows: 

Let — max (|x|, |y|), and v 2 = min (|x|, |y|). 

1 

Let t be the exponent of v u i.e., Vi = m • 16*, ^ m < 1 . 

Finally, let t, = _ x t > 0 |, 
and s — 16 * 1 . 

Then, loge |x + iy\ = 4f, • log*(2) + log e + ("7") ■ 

Computation of v,/sand v 2 /s are carried out by manipulation of the characteristics 
of v x and v 2 . In particular, if v 2 /sis very small, it is taken to be 0. The algorithms for 
both complex logarithm subprograms are identical. Each subprogram uses the 
appropriate real natural logarithm subprogram (aloc or dloc) and the appropriate 
arctangent subprogram (atan 2 or DATAN2). 

Effect of an Argument Error 

The effect of an argument error depends upon the accuracy of the individual 
parts of the argument. If x + iy = r • e ih and loge (x + iy) = a + ib, then h — b 
and E(a) — 8 (r). 


1 


QLOG/QLOGIO 

Algorithm 

1. Decompose jcas x = 16 p • 2~ q • m, where-jSS m < 1. 

2. Make an estimate of log 2 m and define three indices 0 sS / ss» 8 , 0 =S> / 3, 

0 ^ k 3 S 4 so that 20/4- 5/ 4- k is the nearest integer to — 160 • log 2 m. Using 
these indices, select three constants a* ft y* where 

«* = [2~ </8 ], ft = [2~ i/32 ], Vk = [2-**®]. 

Here the bracket indicates rounding to the nearest 17 digit binary number. 
Obtain the exact product = a f y k by use of ME and MXD instructions. 
The 18 short constants <x u and y k are encoded in the subroutine. 

Denote z = (m - v m )/(m + v ijlc ). 

Compute tv = 2z/loge(2) = (m - *<#•)/[0.5 • loge(2) • (m 4- v ijk )]. 

1 


3. 


The computed u> is bounded approximately by ± 
accuracy. 


320 


and it has 112 bit 


4. Compute log* (^i) = log 2 (m) - log 2 (*> 0Jt ) as follows: 

log 2 + fliu ? 3 + 4-... 4- a s w u 

where coefficients {a n } have been obtained by the minimax technique. 
log 2 (^) is approximately bounded by ±~^-. This value is computed 
with full 28 hexadecimal digit accuracy, and the absolute error is at most 16 -80 . 

5. Nowloga(x) =4 p- q + log 2 «i + log 2 & + log 2 y* 4- log 2^|~-0 . 

log 2 a<, log zfij, and log 2 y fc are encoded with 31 hexadecimal digits of accuracy. 
Combine these components in such a way that the maximum absolute error is 
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still 16" 30 approximately. This is done to improve accuracy of A**B applica¬ 
tion (see Note below). 

6. Truncate log 2 (x) at the 28th hexadecimal digit, and multiply by log e (2) or by 
logi 0 (2) to obtain log,.(x) or logi<,(x) as desired. 

Effect of an Argument Error 

E ~ 8. Therefore, if the value of the argument is close to 1, the relative error can 
be very large, because the value of the function is very small. 

LOG/LOG 10 

Algorithm 

If x is R*4, then LOG (x) = ALOG(x) and LOGlO(x) = ALOGlO(x). 

If xis R*8, then LOG(x) = DLOG(x) and LOGlO(x) = DLOGlO(x). 

If xis R*16, then LOG(x) = QLOG(x) and LOGlO(x) = QLOGlO(x). 

CQLOG 

Algorithm 

1. Write log P (x + iy ) = a 4- ib 

2. Then, a = log,. |x + iy j and b — the principal value of arctan(t/,x). 

3. log,, [x + itj\ is computed as follows: 

Let Vi — max( |x[, jt/j), and t> 2 = min( |x|, |t/|). 

Let t be the exponent of i.e., = m • 16', — fS m < 1. 

\t ift^O 

Finally, let t, = 

and s = 16*i. 

Then, log e |x + iy\ = ' log 0 (2) + log*^-^ + J . 

Computation of \Js and v 2 /s are carried out by manipulation of the charac¬ 
teristics of v x and v 2 . In particular, if v 2 /sis very small, it is given the exponent of 
— 16 to avoid characteristic wrap-around. 

Effect of an Argument Error 

E ~ 8. Therefore, if the argument is close to 1, the relative error can be very large 
because the value of the function is very small. 
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Sine and Cosine Subprograms 
SIN/COS 


Algorithm 

4 

1 . Define z = — • |x| and separate z into its integer part (q) and its fraction part 


(r) 


. Then z = q + r, and jx| = • q ^ • r^' 


2. If the cosine is desired, add 2 to q. If the sine is desired and if x is negative, 
add 4 to q. This adjustment of q reduces the general case to the computation 
of sin (x) for x ^ 0 because 

cos ( ±x) = sin + x^, and 
sin ( — x) = sin(-»r + x). 

3. Let qo^q mod 8 . 

Then, for q 0 = 0, sin (x) = sin • r^, 

q it = 1 , sin (x) = cos (1 - r)^, 

q 0 = 2 , sin (x) = cos r^, 

q 0 - 3, sin (x) = sin ^~(1 - r)^, 

< 7 <> = 4, sin (x) = - sin r^, 

q 0 = 5, sin (x) = - cos ~ 

q 0 - 6 , sin (x) = - cos . r^, 

q 0 - 7, sin (x) = - sin ^-(1 ” r)). 

These formulas reduce each case to the computation of either sin (t-) 

or cos (t-) where r x is either r or (1 — r ) and is within the range, 

0 ^ r x ^ 1 . 

4. If sin • r x ^ is needed, it is computed by a polynomial of the following 


form: 


sin ^- 4 - • fi^ss r x (a 0 + a x r x - + a 2 r x A + a 3 ri°). 


The coefficients were obtained by interpolation at the roots of the Chebyshev 
polynomial of degree 4. The relative error is less than 2 ‘ 281 for the range. 

5. If cos • r x ^is needed, it is computed by a polynomial of the following 


form: 


cos 


(t-)- 


1 + b x r x 2 4- b 2 r x i +b 3 r x 6 . 
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Coefficients were obtained by a variation of the minimax approximation which 
provides a partial rounding for the short precision computation. The absolute 
error of this approximation is less than 2“ 2457 . 

effect of an Argument Error 

E ~ A. As the value of x increases, A increases. Because the function value dimin¬ 
ishes periodically, no consistent relative error control can be maintained outside 

7T V 

the principal range, —r- ^ x ^ . 


DSIN/DCOS 

Algorithm 

7T 

1. Divide \x\ by” and separate the quotient (z) into its integer part (q) and 


4 

its fraction part (r). Then, z — \x\ • — — q + r, where q is an integer and r 

7T 

is within the range, 0 fg r < 1. 

If the cosine is desired, add 2 to q. If the sine is desired and if x is negative, 
add 4 to q. This adjustment of q reduces the general case to the computation of 
sin ( x ) for x ^ 0, because 

cos ( ± x) = sin ^ |xj + 

, and 

sin ( — x) = sin ( |x| + x). 


Let t/o = q mod 8. 


/ 7r 

Then, for q 0 — 0, sin ( x ) = sin 1 — 

-')• 

/ 7r 

q 0 = 1, sin ( x ) = cos 1 

■(i-o). 

/ X 

q 0 — 2, sin (x) = cos 1 -£ 

•r). 

/ 7r 

q 0 = 3, sin ( x) = sin 1 

■(!-<•)). 

q 0 — 4, sin ( x) — — sin ^ 

T")’ 

q 0 = 5, sin ( x ) = — cos ^ 

Td-o), 

< 7 o = 6, sin (x) = — cos ^ 

t4 

</o == 7, sin (x) = — sin ^ 



These formulas reduce each case to the computation of either sin (t-) 
• fi ^, where r x is either r or (1 — r), and is within the range, 


or cos 

\ ‘ 

0 ^ rj ^ 1. 


4. Finally, either sin (f-) or cos * fi computed, using the polynomial 

interpolations of degree 6 in r x 2 for the sine, and of degree 7 in r x 2 for the cosine. 
In either case, the interpolation points were the roots of the Chebyshev poly- 
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nomial of one higher degree. The maximum relative error of the sine polynomial 
is 2 -58 and that of the cosine polynomial is 2 -64 3 . 

Effect of an Argument Error 

£ ~ A. As the value of the argument increases, A increases. Because the function 
value diminishes periodically, no consistent relative error control can be main- 

IT 

tained outside of the principal range, —x ^ +- 5 -. 

Z 2a 



CSIN/CCOS 


Algorithm 

1. If the sine is desired, then 

sin(x + iy) = sin(x) • cosh(e/) + i • cos(x) • sinh(y). 

If the cosine is desired, then 

cos(x + iy) = cos (x) • cosh(y) — i • sin(x) • sinh(y). 

2. The value of sinh(x) is computed within the subprogram as follows. 
Assume x ^ 0 for this, since sinh( — x) = — sinh(x). 


3. 

4. 


If x ^ 0.346574, then use sinh (x) = Vz 



e* 


> 


If 0 ^ x < 0.346574, then compute sinh(x) by use of a polynomial: 
sinh(x) 

- ss a 0 + a x x 2 + 02 * 4 . 


The coefficients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range 0 ^ x 2 ^ 0.12011 under die constraint that 
a 0 shall be exactly 1.0. The relative error of this approximation is less than 

jJ- 26 . 18 . 

5. The value of cosh(x) is computed as cosh (x) = sinhjxj + 

This computation uses the real exponential subprogram (exp) and the real sine/ 
cosine subprogram (sin/cos). 


Effect of on Argument Error 

To understand the effect of an argument error upon the accuracy of the answer, the 
programmer must understand the effect of an argument in the sin/cos, exp, and 
sinh/cosh subprograms. 


CDSIN/CDCOS 

Algorithm 

1. If the sine is desired, then 

sin (x+iy) = sin(x) • cosh(t/) + i • cos(x) • sinh(t/). 

If the cosine is desired, then 

cos(x + iy) = cos(x) • cosh(y) — i • sin(x) • sinh(y). 

2. The value of sinh(x) is computed within the subprogram as follows. 
Assume x ^ 0 for this, since sinh( — x) = — sinh(x). 

3. If x ^ 0.481212, then use sinh(x) = Vz ^e* — 

4. If 0 ^ x < 0.481212, then compute sinh(x) by use of a polynomial: 

sinh(x) 

-2* do + aix 2 + a 2 x* + asx 8 + + a#* 10 . 
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x 



The coefficients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range 0 ^ x 2 0.23156 under the constraint 
that a 0 shall be exactly 1.0. The relative error of this approximation is less 
than 2 - 56 07 . 

5. The value of cosh(x) is computed as cosh (x) = sinh|x| H—pjp. 

This computation uses the real exponential subprogram (dexp) and the real 
sine/cosine subprogram (dsin/dcos). 

Effect of an Argument Error 

To understand the effect of an argument error upon the accuracy of the answer, 
the programmer must understand the effect of an argument error in the dsin/dcos, 
dexp, and dsinh/dcosh subprograms. 

QSIN/QCOS 

Algorithm 

1. Separate the argument into an integral multiple of y and the remainder part: 

|x| = y-.q + r where q is an integer, and- — 5= r < — . 

In this decomposition, after q is estimated in the working precision, r is accu¬ 
rately computed as r = |x| — —• q with the aid of approximately 10 hexa¬ 
decimal guard digits. 

2. Add 1 to q if cosine is desired, since cos( ±x) = sin + x 

Add 2 to q if sine is desired and x is negative, since sin( — x) = sin( 7 r + x). 
These adjustments reduce the general case to computation of sin (x) for x ^ 0 . 

3. Let q 0 = q mod 4. Then, 

if q 0 = 0 , sin( |x|) = sin(r) 

= 1, sin(jxj) = cos(r) 
q 0 - 2, sin( |x|) = -sin(r) 

<?o = 3, sin(|x|) = -cos(r) 

4. Compute sin ( r ) or cos (r) as follows: 

sin( r) s* r + a ir 3 + asr 5 + ... + a n r~ :i 
cos (r) ss 1 + bir 1 + b 2 r 4 + ... + bvjr 24 
Coefficients { aj), {b^} are determined by the minimax technique as applied to 
the range 0 2 s r ^ . The relative errors of these approximations are less 

than 2 -112 . 

Effect of an Argument Error 

E ~ A. As the value of x increases, A increases. Because the function value dimin¬ 
ishes periodically, no consistent relative error control can be normally maintained 

outside the principal range- — fg x ^ + -y . 

CQSIN/CQCOS 

Algorithm 

1. If the sine is desired, then 

sin(x 4* iy) = sin(x) • cosh (y) -f i • cos(x) • sinh(i/). 

If the cosine is desired, then 

cos (x + iy) = cos(x) • cosh(t/) — i • sin(x) • sinh (y). 
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2. The value of sinh(x) is computed within the subprogram as follows. 

Assume x ^ 0 for this, since sinh( —x) = — sinh( x). 

e*-—- 

e* 

4. If 0 ^ x < 0.481212, then compute sinh(x) by the use of the polynomial: 

a* ao + aiX 2 4. a2X 4 + ... + aiox 20 

x 

The coefficients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range 0 ^ x 2 ^ 0.23156 under the constraint that 
«o shall be exactly 1.0. The relative error of this approximation is less than 2 -112 . 
The highest three terms of this polynomial need only be evaluated in double 
precision. 

5. The value of cosh(x) is computed as cosh(x) = sinh |x| + -^ 7 — . 

Effect of an Argument Error 

Combine such effects on sine/cosine/hyperbolic-sine/hyperbolic-cosine functions 
according to the formula in step 1 of the algorithm. 

Square Root Subprograms 

SQRT 

Algorithm 

1. If x = 0, then the answer is 0. 

2. Write x = 16 2p ~ 9 • m, where 2p — q is the exponent and q equals either 0 or 1; 
m is the mantissa and is within the range ^ m < 1 . 

3. Then, y* = 16* • 4~ <? V m. 

4. For the first approximation of V x, compute the following: 

, / 1.288973 \ 

y ° * g (1.681595 0 8408065 + m y 

This approximation attains the minimax relative error for hyperbolic fits of y"x. 
The maximum relative error is 2~ 5 - 748 . 

5. Apply the Newton-Raphson iteration 



twice. The second iteration is performed as 
y 2 = 1A ( !/l -Z.)+Z_ i 

with a partial rounding. The maximum relative error of y 2 is theoretically 

2 - 25 . 9 . 

Effect of an Argument Error 
1 

4 — 2 " 8- 

OSQRT 

Algorithm 

1. If x = 0, then the answer is 0 . 

2. Write x = 16 2p-9 • m, where 2p — q is the exponent and q equals either 0 or 1; 

m is the mantissa and is within the range — ^ m < 1 . 

16 



3. If x ^ 0.481212, then use sinh(x) = 
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3. Then, yjx = 1GP • 4~' ? y/m. 

4. For the first approximation of y/x, compute the following: 

t/o = 16* • 4 l ~* • 0.2202 (m + 0.2587). 

The extrema of relative errors of this approximation for q = 0 are 2 - 3 - 202 at 

m = 1, 2 - 3 265 at m = 0.2587, and 2 -2025 at m = — .Thisapproximation,rather 

x 

than the minimax approximation, was chosen so that the quantity- y A be* 

y* 

low becomes less than 16* -8 in magnitude. This arrangement allows us to 
substitute short form counterparts for some of the long form instructions in the 
final iteration. 

5. Apply the Newton Raphson iteration 


y„+. - %(</»+ y n ) 


four times to t/ 0 , twice in the short form and twice in the long form. The final 
step is performed as 


?/4 = Vn + % 


a - ys ) 


with an appropriate truncation maneuver to obtain a virtual rounding. The 
maximum relative error of the final result is theoretically 2 -63 - 23 . 

Effect of on Argument Error 
1 


CSQRT/CDSQRT 

Algorithm 

1. Write V x + iy — a + ib. 

I |x| + |x + iy j _ 

2. Compute the value z = - 2 -as k • V u>\ + where k, Wi and tv* 

are defined in 3 or 4, below. In any case let = max (jx[, jt/|) and 

v-j = min (|*|, |t/|). 

3. In the special case when either v 2 = 0 or v, greatly exceeds v 2 , let to, = v 2 and 
< o 2 = Uj so that w, + cu 2 is effectively equal to v,. 

Also let k = 1 if v x — jx[ and 
k = 1/V 2 if t>! = |t/|. 

4. In the general case, compute F = V 4 + V 4 (*)'■ 

If jxj is near the underflow threshold, then take 
tvi = |x|, w-y — v 1 • 2F, and k — 1/ y/ 2 . 

If • F is near the overflow threshold, then take 
tv 1 — jx|/4, w> = Ui *F/2, and k = y/2. 

In all other cases, take w x = jxj/2, t c-> = v x • F, and k = 1. 

5. If z — 0, then a — 0 and b = 0, 

If z =£ 0 and x ^ 0, then a = z, and 

J_ 

2z' 

y 


b = 


If z 0and x < 0 , then a — 


, and 


2 zj 

h = (sign y) • z. 
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The algorithms for both complex square root subprograms are identical. 
Each subprogram uses the appropriate real square root subprogram (sqrt or 
dsqrt). 


/f~>s 


Effect of an Argument Error 

The effect of an argument error depends upon the accuracy of the individual 
parts of the argument. If x + iy = r • e ih and V x + iy = R • e iH , 

then«(R) —- ~Y 8 (r), and e(H) ~ 8(h). 

QSQRT 

Algorithm 

1. Let x — 16 2p+v • m, where p is an integer, q = 0 or 1, and 
1 


16 


m < 1. Let Xi — 16 32 ' 


m 


This scaling by 16 :H2 is made to avoid intermediate underflows. 
Compute the first approximation y 0 to y/x x as follows: 

1 . 80^018 - o - 9 ^|4 


0.9540356 

These coefficients were determined to minimize the relative error of the approxi¬ 
mation while being exact at m — 1. The maximum relative error is 2~ 5 - 48 . 

3. Apply Newton Raphson iteration three times — twice in short form and once in 
long form. 


*-r("- + £r) i = 1 - 2 ’ 3 - 

At the end of the third iteration, the relative error e 3 of y :x is at most 2“ 41 . 
Apply to y-.i the following cubic refinement in extended precision: 


o ~ 

y A - t/ 3 - 2t/ 3 * 2 

3y 3 + xi 

The relative error e 4 ofyUs-jUs^or 2-* 25 . 

Since the right hand term is only a correctional term, a simplified extended 
division suffices. In the process of assembling y 4 , a virtual rounding is given. 
5. Replace the exponent of y 4 with the correct exponent p + q. 

Effect of an Argument Error 
1 . 


/ \ 


CQSQRT 

Algorithm 

1. Write V* + iy ~ a + ib 

2. Let 16 2p +«~ 1 ^ max( \x\, |y|) < 16 2p+<? , q — 0, or 1 
Let x x — x' 16“ 2p , and y x = y • 16“ 2p . 

This scaling operation is carried out by manipulation of the characteristic fields 
of xand y. In doing this necessary precaution is exercised to avoid the anomaly 
of characteristic wrap-around. 


3. Compute z x 


_ JW + 1*1 + iy x I 




Restore scaling: z — 16^ • z x 
4. If z — 0, then a — 0 and b — 0. 

If z 0, and x ^ 0, then a = z, and 


c 
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b = 


y 

2z * 


If z 0 and x < 0, then a = 


_y_ 

2z 


, and 


b - (sign y) •%. 


Effect of an Argument Error 

Using polar coordinate, write x + iy = r • e f * and V* + iy = R • e iH . 
Then «(R) - 8 (r), and e(H) - 8 (h). 

Tangent and Cotangent Subprograms 


TAN/COTAN 

Algorithm 


1. Divide |x| by and separate the result into the integer part (q) and the 
fraction part (r). Then |x | + r). 


2. Obtain the reduced argument (tc) as follows: 

if q is even, then w — r 
if q is odd, then tv = 1 — r. 

The range of the reduced argument is 0 5s tv 5s 1. 

3. Let q 0 == q mod 4. 


Then for q 0 — 0, tan \x\ = tan • w ^ and cot jxj = cot • u 
qo = 1 , tan jxj = cot and cot jxj = tan 

qo — 2, tan jxj = — cot and cot jxj = — tan 

q 0 = 3, tan jxj = — tan ^ and cot jxj = — cot • u*^. 

4. The value of tan • w ) and cot • tt; ) are computed as the ratio of twc 
polynomials: 

( * \ tvP(u) / * \ Q(u) 

tan I — • w I zsz—pr, —r~> 001 I — • w I as zr .—r 

\4 ) Q(u) \ 4 / wP(u) 


where u = Vziu- and 

P(u) = - 8.460901 + u 

Q(u) = - 10.772754 4- 5.703366 • u - 0.159321 • u-. 

These coefficients were obtained by the minimax rational approximation (in 
relative error) of the indicated form. The maximum relative error of this 
approximation is 2 -26 . Choice of u rather than w 2 as the variable for Pand (2 is to 
improve the roundoff quality of the coefficients. 

5. If x < 0, then tan(x) = — tan xj, and cot(x) = — cot |x|. 

6 . This program is provided with two kinds of error controls. One is for arguments 
whose magnitude is greater than 2 18 • tt. The other is for arguments which are 
very close to a singularity of the function. In either case, the precision of the 
argument is deemed insufficient for obtaining a reliable result. More specifically, 
the second control screens out the following arguments: 

a) jxj 2 S 16 -63 for cotan (the result would overflow). 

b ) x is such that one can find a singularity within eight units of the last digit 
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value of the floating-point representation of the sum q + r. Singularities are 
cases when the cotangent ratio is to be taken and tv = 0 . 

Effect of on Argument Error 

A 2 

E ~ -rrr , and c — - -r-rr-r for tan(x). Therefore, near the singularities 

cos 2 (x) sm( 2 x) ° 

-(* 4 ) t r, where k is an integer, no error control can be maintained. This 
is also true for cotan (x) for x near kir, where k is an integer. 


DTAN/DCOTAN 


Algorithm 


7T 

1 . Divide |x[ by “and separate the result into integer part (q) and the fraction 


part (r). Then jx| = -^-(9 + r). 

2. Obtain the reduced argument (to) as follows: 

if q is even, then tv = r 
if q is odd, then tv — 1 — r. 

The range of the reduced argument is 0 tv ^ 1. 

3. Let qo^q mod 4. 


Then for q 0 = 0, tan |xj = tan • w^and cot |x| = cot • tv^, 

<7o = 1, tan |x| = cot • u;^andcot |x[ = tan 

q 0 = 2 , tan jx| = - cot • u;^and cot |x| = — tan 

qo = 3, tan [x| = — tan • u;^and cot jxj = — cot 

4. The value of tan (t-”) and cot (t--) are computed as the ratio of 
two polynomials: 


tan 




tv • P(tv 2 ) 


, and cot 


(t- w ) 


Q(™ 2 ) 

to • P(tV 2 )' 


Q(tv 2 ) 

where both F and Q are polynomials of degree 3 in tv 2 . The coefficients of P 
and Q were obtained by the minimax rational approximation (in relative error) 

of — tan (— tv ^ of the indicated form. The maximum relative error of this 
tv \ 4 / 

approximation is 2 ~ 55C . 


5. If x < 0, then tan(x) = — tan jxj, and cot(x) = — cot |x|. 

6 . This program is provided with two kinds of error controls. One is for argu¬ 
ments whose magnitude is greater than 2 50 • -n. The other is for arguments which 
are very close to a singularity of the function. In either case, the precision of 
the argument is deemed insufficient for obtaining a reliable result. More 
specifically, the second control screens out the following arguments: 

a) |xj 16~ 63 for cotan (the result would overflow). 

b) x is such that one can find a singularity within eight units of the last digit 
value of the floating-point representation of the sum q + r. Singularities are 
cases when the cotangent ratio is to be taken and tv = 0 . 
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Effect of an Argument Error 

A 

E ~ ———r> and e ~ 


for tan(x). Therefore, near the singularities of 


cos 2 (x)’ “ * ' sin( 2 x) 

-(** 4 ) 7 r, where k is an integer, no error control can be maintained. 

This is also true for cotan(x) for values of x near kir, where k is an integer. 

QTAN/QCOTAN 

Algorithm 

1. Separate argument into an integral multiple of and the remainder part: 

|x| = • q 4- r where q is an integer, and —~ ^ r < . 

In this decomposition, after q is estimated in the working precision, r is accu¬ 
rately computed as r = \x\ — ~ • q with the aid of approximately 10 hexa¬ 
decimal guard digits. 

2. If cot(x) is desired, add 1 to q, and remember to change the sign of the answer. 
Since cot(x) = —tan ( x+ t) , this reduces the case to computation of 
tangent. 

3. If q is even, tan( |x|) = tan( r), and the latter is obtained by a minimax approxi¬ 
mation of the form: 

rP(r-) 


tan(r) 


Q(r 


where P and Q are polynomials of degree 6 and 5 respectively. 

If q is odd, tan( |x|) = — cot(r), and the latter is computed as 

cot(r) ^ *$) 

using the same polynomials as the former case. 

The relative errors of these approximations are less than 2 _m . In evaluating 
these rational approximations, an exponent scaling is used to avoid intermediate 
partial underflows, which can result in a loss of accuracy. 

4. If x < 0, then tan(x) = — tan( jxj), and cot(x) = —cot(|x|). 

Effect of an Argument Error 

A , 2A 


.E 


cos-(x) 

= (*+!-)-. 


, and 


for tan(x). Therefore near the singularities 


sin(2x) 

where k stands for integers, no error control can be maintained. 


This is also true for cot (x) for x near kir, where k is an integer. 
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Implicitly Called Subprograms 

The entry point names of the following implicitly called subprograms are gener¬ 
ated by the compiler. 

Complex Multiply and Divide Subprograms 



CDVD#/CMPY# (Divide/Multiply for COMPLEX*8 Arguments) 
CDDVD#/CDMPY# (Divide/Multiply for COMPLEX* 16 Arguments) 


Algorithm 


Multiply : (A + Bi) (C + Di) = (AC - BD) + (AD + BC)i 
Divide: (A + Bi)l(C + Di) 

1. If [C| 5s [D|, set 

A = B, B = — A, C = D, D = — C, since 


A + Bi 
G + Di 


B-Ai 


before step 2. 


A B D 

2. Set A' = B' — D' = 

then compute 

A + Bi _ A' + B'i A' + B'D B' - A'D' 

C + Di ~ 1 + D'i " I + D'D' + 1 + D'D' *' 


Error Conditions 


Partial underflows can occur in preparing the answer. 


CQMPY#/CQDVD# (Multiply/Divide for COMPLEX*32 Arguments) 

Algorithm 

Multiply: ( a+bi) (c+di) = ( ac—bd ) + ( ad+bc)i 
Divide: (a+&i)/(c+di) 

1. Let a + bi and c + di be the first and the second operands respectively. 

2. Find exponents p u p 2 which satisfy the following: 

16 p i -1 ^ max(ja|, \b\) < l&i, l ^* -1 £ max(|cj, jd|) < 16**. 

Choose q— —3 ifpi^O 

q = 31 if Pi < 0 

3. Scale c and d by 16^“ 9 and change sign of d if CQDVD#: 

c x = c • 160 -p* 

, _ )d • 16 q ~ p i ifCQMPY# 

1 l-d-16«-*2 if CQDVD#. 

Here if the exponent adjustment results in underflow, replace the affected 
quantity with 0 . 

4. Compute «i 4- v y i — (ac x — bd t ) + (adi + bci ) i 

5. If CQMPY#, restore the scaling to obtain the answer u + vi: 

u = Ui • and v = v x • 16 p 2 - q . 

6 . If CQDVD#, compute the denominator as follows: 

w x = ( Cl 2 + d x 2 ) • 16- 29 
Note that 16“ 2 5s u>i < 2. 

Then divide: u 2 = u x /tv 1 and v 2 — vjw x 
Finally, restore the scaling to obtain the answer u + vi: 
u = u 2 * 16“ 9 “ p a and v = v 2 ’ 16~ 9 ~ p *. 

Effect of an Argument Error 

In terms of complex vector relative errors, e ~ Bx + 8y where &c is the relative 

error of the first operand and 8y is the relative error of the second operand. j 
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Complex Exponentiation Subprograms 
(Exponentiation of a Complex Base to an Integer Power) 

FCDXI# (COMPLEX* 16 Arguments) 

FCXPI# (COMPLEX* 8 Arguments) 

Algorithm 

The value of iji 4 y-J = (z, 4 z-J) J is computed as follows. 

K 

Let |;| — J ft • 2 A ' where r k = 0 or 1 for k = 0,1,.. K. 

k = 0 

Then z|./| = II z 2 \ and the factors z 2 \ can be obtained by successive squaring. 
More specifically: 

1. Initially: k = 0, n ((,, = j;j, t/i+ y/ iu i — 1 4 Oi, 

Zl <°> 4 = Z, 4 Sai. 

2. Raise the index fe by 1, and let n' A-n = 2q 4 r, where q is the integer 
quotient and r = 0 or 1 . 

3. Let n (A) = q. 

4. Ifr = 0, then t/ 1 ,A) 4 j/^ ,A) i = t/ 1 (A_1) 4 

If r = 1, thent/i (A) 4 = (^i u-l) + J/ 2 {k ~ 1] i) (zi (k-1) 4 z 2 (A_ 1 ) i). 

5. If n (A * 4 =0, then z, (A) 4 s 2 U) i = (zi (A-1) 4 Z2 (l_1) ) 2 , and steps 2 
through 5 are repeated until n [k) = 0. 

6 . When n (A) = 0, and / ^ 0, then t/i 4 t/ 2 i = */i (A) +y» a) i- 
If; < 0, theni/, 4 t/:>i = (1+ 0*) / (t/, (A) 4 y> a) i). 

(Exponentiation of a Complex Base to a Complex Power) 

FCQXQ# (complex *32 Arguments) 

FCDXD# (complex *16 Arguments) 

FCXPC# (complex *8 Arguments) 

Algorithm 

z, ** z, = exp (z 2 * log z,), where the functions ‘exp’ and ‘log' are CEXP and 
CLOG, CDEXP and CDLOG, or CQEXP and CQLOG respectively as the argu¬ 
ments are C* 8 , C*16, or C*32. 

Effect of an Argument Error 


If z, = x, 4- iy, and z, = x 2 4- /> 2 , then 
z, ** z 2 == exp (a) * (cos (b) 4 / sin( 6 )), where 
a — x 2 * log | x, + />, | — y.* arctan (y,/x,) and 
b = y t * log | x 2 4- f> 2 14- x 2 * arctan 0>,/x,). 

The function z** Zj is calculated using the fortran routines for sin, cos, exp, log, 
and arctan. 

Therefore the effect of an argument error upon the accuracy of the result depends 
upon its effect in the functions SIN, COS, EXP, LOG, and ATAN. 
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Exponentiation of a Rea! Base to a Real Power Subprograms 

FDXPD# (REAL* 8 Arguments) 

FRXPR# (REALM Arguments) 

Algorithm 

Assume the desired answer is a 6 . 

1. If a — 0 and b ^ 0, error return. 

If a = 0 and b > 0, the answer is 0. 

2. If a 0 and b =0, the answer is 1. 

3. All other cases, compute a h as t h • ,og " In this computation the exponential 
subroutine and the natural logarithm subroutine are used. If a is negative or if 
b • log a is too large, an error return is given by one of these subroutines. 

Error sstimaio 

The relative error of the answer can be expressed as (t, + e-j) b • log (a) + c» 
where e,, and e :{ are relative errors of the logarithmic routine, machine multi¬ 
plication, and the exponential routine, respectively. 

For fdxpd#, €i ^ 3.5xlO~ 1<J , *■_> 5s 2.2xl0~ lc , and e :t ^ 2.0xl0 -10 . Hence the 
relative error ^ 5.7xl0~ 10 x | b • log a | + 2.0xl0~ 16 . Note that b • log a is the 
natural logarithm of the answer. 

For FRXPR# «, ^ 8.3xl0~ 7 , = 9.5xl0 -7 , and eg ^ 4.7xl0 -7 . Hence the relative 

error ^ 1.8xl0 -6 x | b • log a | + 4.7xl0~ 7 . 

Effect of an Argument Error 

[a( 1 + §!) ] b( 1 + 8 2 ) = a h ( 1 + 8j? • log a + b8 r ). Note that if the answer does 
not overflow, j b • log a\ < 175. On the other hand b can be very large without 
causing an overflow of a h if log a is very small. Thus, if a ss 1 and if b is very 
large, then the effect of the perturbation Si of a shows very heavily in the relative 
error of the answer. 

Exponentiation of a Real Base to an Integer Power Subprograms 

FOXPI# (REALM Arguments) 

FRXPI# (REALM Arguments) 

Algorithm 

1. If a = 0 and b ^ 0, error return. 

If a = 0 and b > 0, the answer is 0. 

2. If a ^ 0 and b =0, the answer is 1. ^ 

3. The value of y = a) is computed as follows: Let (/[ = £ /’a2 a where r = 0 

A- = 0 

or 1 for k = 0,1, . . ., K. Then a\ } \ = II a- k and the factors a- k can be obtained 

r *^° 

by successive squaring. 

More specifically: 

1. Initially: k — 0, n (0) = |;[, y (0) = 1, and z (0) = a. 

2. Raise the index k by 1, and decompose n a ~ 1> — 2 q + r, where q is the 
integer quotient and r = 0 or 1. 

3. Let n ih ) — q. 

4. If r = 0, then t/ (A) = 

Ifr = 1, thent/ (,,) = 
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5. If n ik) 4 = 0, then z Vn = and steps 2 through 5 are repeated 

until n (I) = 0. 

6 . When n a) = 0, and / ^ 0, then t/ = y a K If j < 0, then y — ^ 77 . 

Note: The negative exponent is computed by taking the reciprocal of the posi¬ 
tive power. Thus it is not possible to compute 16.0**—64 because there is a lack of 
symmetry for real floating-point numbers — i.e., 16.0** —64 can be represented, 
but 16.0**64 cannot. The result is obtained by successive multiplications and is 
exact only if the answer contains at most 14 significant hexadecimal digits. 


Exponentiation of an Integer Base to an Integer Power Subprogram 

FIXPI# (INTEGERS Arguments) 

Algorithm 

1. If a = 0 and 0, error return. 

If a = 0 and b > 0, the answer is 0. ^ 

2. If a ^ 0 and b =0, the answer is 1. 

3. The value of L = l 1 is computed as follows: Let j = r k • 2 A where 

k = 0 

r k = 0 or 1 for k = 0, 1, . . ., K. Then /' = n 1 2 \ and the factors I 2k can be 
obtained by successive squaring. ' k * " 

More specifically: 

1. Initially: k = 0, n H " = j, y"" = 1, and m" M = I. 

2. Raise the index k by 1, and decompose n a_1 ' == 2q 4- r, where q is the 
integer quotient and r — 0 or 1 . 

3. Let n a) == q. 

4. If r = 0, then y a '* — \ 

If r = 1 , then^/ a, = y (, ~ u 

5. If n Un =(= 0, then m (1;) = • m <A_l1 , and steps 2 through 5 are repeated 

until n (, » = 0 . 

6 . When n a '* == 0, L = L U:) . 

Note: The result is obtained by successive multiplications. The result is exact 
only if it is less than (2**31) — 1. Results are meaningless when this limit is 
exceeded and may even be of changed sign. No tests for overflow are made. 
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Complex Exponentiation Subprogram 
FCQXI# (COMPLEX*32 Arguments) 


Algorithm 

1. Write (x + yi) J = a + bi. 

2. If x + yi = 0 + Oi and / > 0, then n + = 0 + Oi 

3. If J — 0, a + bi — 1.0 + 0». Assume now / ^ 0. 

4. Let }/| = 2 gy where gy = 0 or 1 , g 0 = 1 . 

y«o 

Initialize a 0 + &o* = * + yi. If |J| = 1, skip the following. 
Do the following for / = 1,2,..., n: 


a a. hi - ((«/-! + &/-i0 a 
' + ' H«i-i + hy-i0 2 (* + 0) 

At the end of iteration + b n i = (x + yt)M. 


ifgy = 0 
if g; = 1 


5. 


Ifj<0,(x + yi) J = 


1.0+ 0i 

(x + yi)W 


Effect of an Argument Error 

|e| ~ / |S{ where 8 is the complex relative error of the base and e is the complex 
relative error of the result due to this. 




Exponentiation of a Base 2 Argument to a Real Power Subprogram 

FQXP2# (REAL* 16 Arguments) 

Algorithm 

This subprogram uses the same algorithm as the QEXP explicit subprogram. 



Exponentiation of a Real Base to an Integer Power Subprogram 


FQXPI# (REAL* 16 Arguments) 


Algorithm 

1. Write x* = y 

2. If x — 0 and / > 0, then y — 0 

3. If x 0, and / = 0, then y = 1.0. Assume now J ^ 0. 

4. Let |/| = 2 gy 2* -i where gy = 0 or 1, g 0 = 1. 

y=»o 

Initialize t / 0 = x. If |/| = 1 , skip the following. 

Do the following for /' = 1,2,..., n: 



x 


At the end of iteration 


ifgy = 0 
if gy = 1 

yn = xW. 


5. If/<0,^ = 


1 


Note: The negative power is computed by taking the reciprocal of the positive 
power. Thus it is not possible to compute 16.0**—64 because there is a lack of 
symmetry in real floating point numbers; i.e., 16.0**—64 can be represented, but 
16.0**64 cannot. 


Effect of an Argument Error 

t J 8 
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exponentiation of a Real Base to a Beat Power Subprogram 

FQXPQ# (REALM 6 Arguments) 

Algorithm 

1. Basically, x v = 2** l0f5 » (x) . 

2. More specifically, log 2 (x) is computed with aimed accuracy of 16" 30 in abso¬ 
lute error, or 16" 28 in relative error, whichever is smaller, by the algorithm of 
QLOG/QLOGIO. The result is kept as two components; the high order part 
is represented by a single precision number; and the low order part, which is 
less than 16" 2 in absolute value, is represented by an extended precision 
number. 

3. The product y • log 2 ( x ) is obtained by a simulated multiplication to obtain up 
to 31 hexadecimal digits of accuracy. 

4. Raise the result to the power of 2 by the algorithm of QEXP. As stated there, 
this includes a virtual final rounding with the result that one obtains the full 
28 hexadecimal digit accuracy unless x is very close to 1.0. 

Effect of an Argument Error 

* ~ y ' S r + y ' log(x) • 8 y . The factor y • log(x) is limited by 180 in magnitude. 

If beyond this, the result will overflow. However, the other factor y can be very 

large if x is close to 1. This is so because log(x) will then be very small. 
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Accuracy Statistics 


( o / 


This chapter contains accuracy statistics for explicitly and implicitly called 
mathematical subprograms. These statistics are presented in Figure 12. They are 
arranged in alphabetic order, according to the entry names. The following informa¬ 
tion is given in the two figures: 

Entry Name: This column gives you the entry name that is used to call the 
subprogram. 

Argument Range: This column gives the argument range used to obtain the 
accuracy figures. For each function, accuracy figures are given for one or more 
representative segments within the valid range. In each case, the figures given are 
the most meaningful to the function and range under consideration. 

The maximum relative error and standard deviation of the relative error are 
generally useful and revealing statistics; however, they are useless for the range of 
a function where its value becomes 0. This is because the slightest error in the 
argument can cause an unpredictable fluctuation in the magnitude of the answer. 
When a small argument error would have this effect, the maximum absolute error 
and standard deviation of the absolute error are given for the range. 

Sample: This column indicates the type of sample used for the accuracy figures. 
The type of sample depends on the function and range under consideration. The 
statistics may be based either upon an exponentially distributed (E) argument 
sample or a uniformally distributed (U) argument sample. 

Accuracy Figures: This column gives accuracy figures for one or more represen¬ 
tative segments within the valid argument range. The accuracy figures supplied are 
based on the assumption that the arguments are perfect, that is, without error and, 
therefore, have no error propagation effect upon the answers. The only errors in 
the answer are those introduced by the subprograms. The chapter “Algorithms” 
contains a description of some of the symbols used in the chapter; the following 
additional symbols are used in the presentation of accuracy figures: 



M(«) 


= Max 


f(s) - g(x) 

f(*) 


The maximum 
relative error 
produced 
during testing. 


cr (e) 


I 1 T 

f(*i) “ g(*0 2 

J N^i 

f(*i) 


The standard 
deviation (root- 
mean-square) of 
the relative error. 


M(E) = Max ] f(ac) — g(x) | 


The maximum 
absolute error 
produced 
during testing. 


a(E) 



f(*i) ~ g(*i) 


|2 


The standard 
deviation (root- 
mean-square) of 
the absolute error. 


In case of complex functions, the absolute value signs employed in the above 
definitions are to mean the complex absolute values. In the formulas for standard 
deviation, N represents the total number of arguments in the sample; i is a 
subscript that varies from 1 to N. 
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ALGAMA 



ALOG 10 


ARCOS 


ARSIN 


ATAN 


ATAN2 


CABS 


CCOS 


CDABS 


CDLOG 


CDSIN 


CDSQRT 


CEXP 


CLOG 


COS 0 ^ X < «• 

-10 < X < 0, 
7T < X ^ 10 

10 < |X| ^ 100 


Argument 

Range 


0 < X < 0.5 


0.5 ^ X < 3.0 


3.0 ^ X < 8.0 


8.0 ^ X < 16.0 


16.0 ^ X < 500.0 


0.5 ^ X ^ 1.5 


X < 0.5, X > 1.5 


0.5 g X < 1.5 


X < 0.5, X > 1.5 


- 1 ^ X< 4- 1 


The full range 


The full range 


The full range 


|X,| < 10, |X,| ^ 1 


The full range 


CDCOS |X,|<10,|X.|’gl 


|X,| ^ 1, |X*| ^ tt/2 


|Xt| ^ 20, |X,| ^ 20 



The full range 
except (1 + Oi) 


|X,| < 10, |X,| < 1 


The full range 


|X t | ^ 170, (X.| ^ w/2 


|Xi| ^ 170, 
w/2 < |X>| ^ 20 


The full range 
except (1 + Oi) 


Sample 

E/U 


U 


U 


u 


u 


u 


u 


E 


U 


E 


U 


u 


Note 7 


Note 7 


Note 1 


U 


Note 1 


U 


U 


U 


Note 1 


Note 1 


U 


U 


Accuracy Figures 


Relative 


M (e 


1.16 X 10‘ 6 


1.25 X IQ' 6 



1.05 X 10-° 


8.85 x lO' 7 


9.34 X 10' 7 


1.01 X 10' 6 


1.01 X 10" 6 


9.15 X 10- 7 


2.50 X 10-° 
See Note 2 


2.03 X 10- lfi 


3.98 X lO' 15 
See Note 3 


3.76 X lO"™ 


2.74 X 10' 15 


2.72 X 10* 16 


2.35 X lO' 15 
See Note 4 


1.76 X lO' 


9.93 X 10' 7 


1.07 X 10- fi 


7.15 X lO' 7 


COSH -5^Xg + 5 


COTAN |X| ^ *74 

w/4 < |X| < w/2 
w/2 < |X| < 10 
10 < |X| ^ 100 


Notes: (See end of figure.) 
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1.27 x 10-« 


1.07 X 10« 


a («) 


3.54 X lO' 7 


3.04 X 10‘ 7 


3.80 X lO’ 7 


1.90 X lO" 7 


2.17 X 10- 


3.19 x 10' 7 


2.06 X 10' 7 


4.68 X 10' 7 


4.68 X 10' 7 


2.00 X 10- 


7.66 X 10' 7 


4.83 X 10- 


2.50 X 10- 10 


1.10 X lO' 10 


9.64 X lO" 16 


5.38 X 10“ 


2.25 X lO' 16 


4.06 X 10' 17 


2.67 X lO' 7 


2.73 X lO' 7 


1.36 x 10' 7 


2.63 X lO 7 


3.58 X 10 7 


1.40 X 10- fi (Note5) 2.56 X 10 7 


1.30 X 10-« (Note 5) 3.11 X 10 7 


1.49 X lO' 0 (Note 5) 3.15 X 10‘ 7 


M (E) 


Absolute 




6.85 X lO" 8 | 2.33 X lO' 8 


7.13 X lO" 8 I 2.26 X lO' 8 




1.19 X 10' 7 

4.60 X lO’ 8 

1.28 X 10 7 

4.55 X lO" 8 

1.14 X 10 7 

4.60 X lO' 8 
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Argument 

Range 


Full range 


-10<x < 10 
-1 < y < 1 


-170 <x < 170 

fl- TT 

2 < y < 2 


Full range 


Sample 

E/U 


Accuracy Figures 


Relative 


Absolute 


M(E) <r( E) 



CQABS 


CQCOS 


CQDVD# 


CQEXP 


CQLOG 


CQMPY# 


nnsTM 


CQSQRT Full range 


|X,| ^ 10, |X*| ^ 1 


CSQRT The full range 


DARCOS |X| g 1 


DARSIN |X| ^ 1 


DATAN The full range 


DATAN2 The full range 


DCOS 0 ^ X g 7T 

-10gx<0, 
W < X g 10 

10 < X ^ 100 


DCOSH |X| ^ 5 


DCOTAN |X| ^ 7t/4 

7r/4 < |X| ^ 7r/2 
t/2 < |X| ^ 10 
10 < |X| ^ 100 


DERF |X| ^ 1.0 

1.0 < |X| ^ 2.04 
2.04 < |X| < 6.092 


DERFC -6 < X < 0 

O^X^l 

_____ 

2.04 < X < 4 
4 < X < 13.3 


Notes. (See end of figure.) 





2.77 x 10'“ 

5.45 X lO' 84 

6.87 X 10'“ 

2.44 X 10'“ 

5.32 X 10'“ 

1.42 X 10 “ 

3.82 X 10-“ 

8.30 X 10'“ 

4.53 X 10'“ 

9.72 X lO'* 4 

4.52 X 10'“ 

1.27 X 10 “ 

7.26 X 10 

2.37 X 10'“ 


Note 1 


U 


U 


Note 7 


Note 7 


U 


U 


3.37 X 10‘“ 


1.92 x 10- 6 
See Note 6 


7.00 X 10' 7 


2.07 X 10' 18 


2.04 x 10' 16 


2.18 X 10' 18 


2.18 X 10' 16 


7.27 X 10'* 4 


7.38 x 10- 7 


1.71 X lO’ 7 


7.05 X 10' 17 


5.15 x 10' 17 


7.04 X 10‘ 17 


7.04 X lO" 17 


3.63 X 10' 18 


2.46 X lO- 16 (Note 5) 


2.78 X lO' 13 (Note 5) 


5.40 X 10* 13 (Note 5) 


8.61 X 10' 13 (Note 5) 


1.89 X 10' 18 


2.87 X 10' 17 


1.39 X 10' 17 


2.08 X lO' 18 


1.40 X 10’ 16 


4.11 X 10' 18 


3.26 X 10' 18 


3.51 X 10' 15 


9.05 X lO" 17 


8.79 x 10' 17 


8.61 X 10~ 15 


1.13 x lO' 14 


4.61 X 10' 14 


2.60 X 10' 17 


9.84 X 10' 18 


8.02 X 10' 18 


6.52 X 10' 17 


2.59 X 10' 17 


8.86 X lO" 17 


8.65 X 10' 17 


1.96 X 10 15 





1.79 X lO" 18 

6.53 X 10' 17 

1.75 X lO' 18 

5.93 X lO' 17 

2.64 X 10" 15 

1.01 x io - 16 
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Entry 

Name 

Argument 

Range 

Sample 

E/U 

Accuracy Figures 

Re 

lative 

_Absolute _1 

M(e) 

a («) 

M (E) 

*<E) 

DEXP 

WS1 

U 

2.04 X 10* 18 

5.43 X 10* 17 



1 < jXj ^ 20 

u 

2.03 X 10* 18 

4.87 X 10* 17 



20 < |X| < 170 

u 

1.97 X 10* 18 

4.98 X 10* 17 



DGAMMA 

0<X<1 

u 

2.14 X 10* 18 

7.84 X 10* 17 




u 

2.52 X lO' 17 

6.07 X 10* 18 



2< X < 4 

, U 

2.21 X 10* 18 

8.49 X 10 17 



4gX < 8 

u 

5.05 X 10* 18 

1.90 X 10* 18 

■ 



8 ^ X < 16 

u 

6.02 X lO' 15 

1.78 X 10 18 



16 = X < 57 

u 

1.16 X lO’ 14 

4.11 X 10* 15 



DLGAMA 

0 < X ^ 0.5 

u 

2.77 X 10* 18 

9.75 X 10* 17 



0.5 < X < 3 

u 



2.24 X 10* 18 

7.77 X 10* 17 

3 ^ X < 8 

u 

2.89 X lO' 18 

8.80 X 10* 17 



8 ^ X < 16 

u 

2.86 X lO" 16 

8.92 X 10* 17 



16 ^ X < 500 

u 

1.99 X 10* 18 

3.93 X 10* 17 



DLOG 

0.5 ^ X ^ 1.5 

u 



4.60 X 10* 17 

2.09 X 10* 17 

X < 0.5, X > 1.5 

E 

3.32 X 10-i« 

5.52 X 10* 17 



DLOGIO 

0.5 ^ X ^ 1.5 

u 



2.73 X 10* 17 

1.07 X 10* 17 

X < 0.5, X > 1.5 

E 

3.02 X 10* 18 

6.65 X 10* 17 

1 


DSIN 

|X| g *72 

u 

3.60 X lO" 16 

4.82 X 10* 17 

7.74 X 10* 17 

1.98 X 10* 17 

*72 < |Xj ^ 10 

u 

1 


1.64 X 10* 18 

6.49 X 10* 17 

10 < jXj g 100 

u 



2.68 X 10* 18 

1.03 X 10* 18 

DSINH 

|X| g 0.88137 

u 

2.06 X 10' 18 

3.74 X 10* 17 



0.88137 < (X| ^ 5 

u 

3.80 X lO" 18 

9.21 X 10* 17 



DSQRT 

The full range 

E 

1.06 X 10* 18 

2.16 X 10* 17 



DTAN 

jXj ^ *74 

u 

3.41 X lO’ 18 

6.27 X 10* 17 



ir/4 < |X| g x/2 

u 

1.43 x 10* 12 (Note5) 

2.95 X 10* 14 



*72 < |X| ^ 10 

u 

2.78 X 10* 1:1 (Note 5) 

7.23 X 10* 15 



10 < |X| ^ 100 

u 

3.79 x 10* 12 (Note5) 

9.50 X 10' 14 



DTANH 

|X| ^ 0.54931 

u 

1.91 X 10* 18 

3.86 X 10* 17 



0.54931 < ]X| ^ 5 

u 

1.54 X 10* 18 

1.87 X 10* 17 



ERF 

|X| ^ 1.0 

u 

8.16 X 10* 7 

1.10 X lO* 7 



1.0 < (X| g 2.04 

u 

1.13 X 10* 7 

3.70 X 10* 8 



2.04 < jX| ^ 3.9192 

u 

5.95 X 10* 8 

3.41 X 10* 8 



Notes: (See end of figure.) 
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Entry 

Name 

Argument 

Range 

ERFC 

-3.8 < X < 0 


0SXS1.0 

1.0<Xg 2.04 

2.04 < X g 4.0 

4.0 < X ^ 13.3 

EXP 

msmmm 


1 < |X| ^ 170 

FCQXI# 

2 J is 160, 

10- ,0/i <Jx + iy;<10 T "' J 

FQXPI# 

2^.1^ 160. 

10 rJ < x < 10” ’ 

FQXPQ# 

0.99 < A < 1.01 
-75 log* 10 < 8 
<75 log.* 10 

(A**B) 

0.5 < A | 0.99, 
or 1.01 SA<2 
-75 log* 10 < B 
< 75 log.* 10 


0 < A 5E 0.5, 
or 2 ^ A < 10” 

-75 log* 10 < B 
< 75 log* 10 

FQXP2# 

-260 < x < 252 

GAMMA 

0 < X < 1.0 


1.0 ^ X S 2.0 

2.0 < X 4.0 

4.0 < X < 8.0 

8.0 ^ X ^ 16.0 

16.0 < X ^ 57.0 

QARCOS 

-1 < x < 1 

QARSIN 

-1 S x ^ 1 

QATAN 

-10” <x < 10” 

QATAN2 

Full range 

QCOS 

0 ^ X ^ 7T 


—10 < x < 0, or 

TT^X < 10 

-200 < x ^ -10, or 
10 ^ x < 200 

QCOSH 

-10 < x < 10 


Sample 

E/U 


Accuracy Figures 


Relative 








U 


U 


U 


u 


u 


u 


u 


u 


u 


Note 10 


Note 9 


U 


M(«) 


9.10 x 10' 7 


7.42 X lO' 7 


1.54 x 10' 6 


2.28 X 10' 6 


1.55 x 10- 


4.65 X 10' 7 


4.42 X 10- 


3.7 x 10 M X J 


2.5 X lO * 1 x (J - 


5.68 x 10- 3 ’ 


5.65 x 10” 


1.60 x 10-" 


1.60 x 10-* 


1.52 x 10” 


9.86 x 10' 7 


1.13 X 10- 


9.47 X 10- 


2.26 X 10- 


2.20 X 10“ 


4.62 X 10- 


3.18 X lO'” 


3.14 X lO'” 


2.92 X 10-" 


3.53 X lO' 33 


4.41 X 10” 




a 

(e) 


2.96 

X 

10- 7 


1.27 

X 

10- 7 


3.78 

X 

10- 7 


3.70 

X 

10- 7 


8.57 

X 

10- 6 


1.28 

X 

10' 7 


1.15 

X 

10- 7 


10-33 

X 

(J - 

1) 

6.1 X 

10“ x 

(J -1) 

5.16 

X 

10-33 


2.16 

X 

10-33 


3.87 

X 

10-“ 


3.87 

X 

10“ 


3.78 

X 

10“ 


3.66 

X 

10- 7 


3.22 

X 

10~ 8 


3.79 

X 

10- 7 


8.32 

X 

10* 7 


7.61 

X 

10- 6 


1.51 

X 

10- 5 


9.81 

X 

10-“ 


7.89 

X 

10- 34 


7.32 

X 

10-“ 


7.83 

X 

10-“ 


6.58 

X 

10-“ 



Absolute 


M(E) <r(E) 




3.23 X 10'“ 1.48 X 10-“ 


3.43 X lO'* 4 11.57X10-“ 



3.48X10-“ 1.57X10-“ 


Notes: (See end of figure.) 


Figure 12. (Part 4 of 6) Accuracy Figures 
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Entry 

Name 

Argument 

Range 

Sample 

E/U 

Accuracy Figures 

Relative 

Absolute 

M («) 

<r(t) 

M(E) 

ff(E) 

QCOTAN 

JL ^ ^ JL 

- 4 <*< 4 

U 

3.02 X 10*” 

9.09 X 10-* 4 



JL ^ ^ JL 

- 2 < * ^ ~ 4 .or 

IT IT 

T- X< T 

u 

3.98 X 10-* 3 

1.09 X 10-” 



—10 < x Si — ~ 2 ~, or ~ 2 ~ = x < 10 

u 

4.55 X 10 ** 

1.13 X 10” 



-200 < x si -10, or 10 ^ x < 200 

u 

3.98 X 10 “ 

1.11 x 10” 



QERF 

j x j < i 

u 

3.0 X 10-" 

5.3 x 10“ 



1 ^ |x| < 2.84375 

u 

9.2 X 10“ 

2.3 X 10“ 



2.84375 ^ |x| <5 

u 

1.9 X 10“ 

1.3 x 10“ 



QERFC 

-5 < x < 0 

u 

3.1 X 10'” 

1.2 X 10“ 



0 g x < 1 

u 

3.3 X 10 “ 

5.8 X 10 “ 



1 < x < 2.84375 

u 

7.7 X 10'“ 

2.8 x 10-“ 



2.84375 ^ x < 5 

u 

4.88 X 10-“ 

1.83 X 10-“ 



QEXP 

-1 < x < 1 

u 

1.51 X 10“ 

4.27 X 10-“ 



-10 < x < 10 

u 

1.53 X 10 ” 

3.96 X 10-“ 



-180 < x < 174 

u 

1.54 X 10 “ 

3.82 X 10'“ 



QLOG 

0.99 < x < 1.01 

u 

4.27 X 10-” 

1.51 X 10-” 

1.92 X lO"” 

8.36 X 10-“ 

0.5 < x < 2 

u 

4.06 x 10 " 

8.24 X 10-“ 

3.17 X 10'“ 

1.63 x 10’“ 

10” < x < 10’* 

E 

4.45 x 10 ” 

8.77 X 10'“ 



QLOGIO 

10”' < x < 10’* 

E 

3.59 x 10-” 

1.16 X 10-“ 



QSIN 

JL ^ ^ JL 

2 < x < 2 

U 

2.48 X 10 ” 

3.12 X 10-“ 

2.95 X 10‘“ 

1.17 X 10’“ 

o 

V 

X 

VII 

u 

o 

1 

VII 

X 

V 
© 

1 

U 



3.48 X 10-“ 

1.60 X 10““ 

-200 < x ^ -10, or 10 ^ x < 200 

U 



3.50 X 10‘“ 

1.56 X 10-“ 

QSINH 

-1 < x < 1 

u 

2.91 X 10” 

6.86 X 10‘“ 



-10 < x ^ -1, or 1 g x < 10 

u 

6.71 x 10-“ 

1.37 X 10*“ 



QSQRT 

10 *° < x < 10“ 

E 

1.49 X 10 ” 

2.95 X 10'“ 



10” < x < 10“ 

E 

1.39 X 10'“ 

2.76 X 10‘“ 



QTAN 

V 

X 

V 

»=!"*< 

i 

u 

3.75 X 10 “ 

9.16 X 10"“ 



z - ^JL. 

- T < x = T» or 

W IT 

T= X< T 

u 

2.77 X 10 “ 

8.78 X 10'“ 



-10 < x :g - -j-, or s= x < 10 

u 

4.52 X 10 ” 

9.16 X 10 “ 



-200 < x ^ -10, or 10 ^ x < 200 

u 

4.47 X 10-“ 

9.12 x 10 “ 



QTANH 

-0.54931 < x < 0.54931 

u 

2.41 X 10“ 

5.12 X 10 “ 



-5 < x si -0.54931, or 

0.54931 ^ x < 5 

u 

2.09 X 10 “ 

2.46 x 10 “ 

1.04 X 10““ 

1.68 X 10-“ 

Notes. (See end of figure.) 
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TANH 


Argument 

Range 

|X| ^ *72 
*72 < |Xj ^ 10 
10 < jX| ^ 100 
-5^X^ +5 
The full range 

|X| ^ ir/4 
ir/4 < |X| ^ *72 
x/2 < |X| ^ 10 
10 < jXj ^ 100 
|X| i 0.7 — - 

0.7 < |X| g 5 


Sample 

E/U 


Accuracy Figures 


Relative 


Absolute 


M (E) 


1.32 X 10-“ 


1.26 X 10 “ 
4.45 X 10' 7 


1.71 X 10- 


1.82 X 10- 


2.17 X 10' 7 
8.43 X 10- 8 


2.64 X 10* 7 


1.18 X 10' 7 
1.15 X 10' 7 
1.28 X 10' 7 


4.55 X 10-“ 
4.64 X 10-“ 
4.52 X 10-“ 


1.05 X 10-“ (Note 5) 3.59 X 10’ 7 

6.49 X 10-“ (Note 5) 3.38 X 10' 7 

1.57 X 10-“ (Note 5) 3.07 X 10' 7 


8.48 X 10- 7 
2.44 X 10- 7 


1.48 X 10- 7 
4.23 X lO" 8 


Notes: 

1 The distribution of sample arguments upon which these statistics are based is exponential radially and is uniform around the 
origin. 

2 The maximum relative error cited for the ccos function is based upon a set of 2000 random arguments within the range. In 

the immediate proximity of the points ( n + i) ir + Oi (where » = 0, ± 1, ± 2 . ) the relative error can be quite 

high, although the absolute error is small. 

3 The maximum relative error cited for the cdcos function is based upon a set of 1500 random arguments within the range. 

In the immediately proximity of the points ^ n + *• + Oi (where n = 0, ± 1, ± 2,. .. ,) the relative error can be quite 

high, although the absolute error is small. 

4 The maximum relative error cited for the cdsin function is based upon a set of 1500 random arguments within the range. 
In the immediate proximity of the points n*- + Oi (where n — ± 1, ±2,...,) the relative error can be quite high, although 
the absolute error is small. 

8 The figures cited as the maximum relative errors are those encountered in a sample of 2500 random arguments within the 
respective ranges. See the appropriate section in the chapter “Algorithms” for a description of the behavior of errors when 
the argument is near a singularity or a zero of the function. 

6 The maximum relative error cited for the csin function is based upon a set of 2000 random arguments within the range. In 
the immediate proximity of the points rnr + Oi (where n = ± 1, ± 2,...,) the relative error can be quite high, although 
the absolute error is small. 

7 The sample arguments were tangents of numbers uniformly distributed between-and + —£•. 

8 x + iy = 8 e' 0 , where 8 is exponentially distributed in (0, 10 36 ), and 0 is uniformly distributed in (— ir, ir). 

9 x + iy = 8 e'®, where 8 is exponentially distributed in (0, 10 75 ), and 0 is uniformly distributed in (— ir, ir). 

10 Tangents of linearly scaled random angles between — J and J • 
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Appendix A: Assembler Language Information 


The mathematical and service subprograms in the vs fortran library can be used 
by^the assembler language programmer. Successful use depends on three things: 
(1) making the library available to the linkage editor; (2) setting up proper calling 
sequences, based on either a call macro instruction or a branch; and (3) supply cor¬ 
rect parameters. 

LIBRARY AVAILABILITY 

The assembler language programmer must arrange for the desired subprograms 
(modules) to be taken from the vs fortran library and brought into main storage, 
usually as a part of the programmer’s load module. This can be done by employing 
the techniques described in the OS/VS Linkage Editor and Loader, and Guide to the 
DOS/VSE Assembler, publications. 

For example, the vs fortran library could be made part of the automatic call 
library by using these job control statements: 

//jobname JOB desired operands 

//stepname EXEC ASMFCLG,PARM.LKED = ‘XREF,LIST,MAP’ 
//ASM.SYSIN DD* 

(assembler language program source deck) 

/• 

//LKED.SYSLIB DD DSNAME=data set name,DISP=SHR 

r 

Subprograms requested in the source program would then be available to the 
linkage editor for inclusion in the load module. 

CALLING SEQUENCES 

Two general methods of calling are possible: (1) coding an appropriate macro 
instruction (for OS/VS and VM/370 CMS, see OS/VS Supervisor Services and macro 
Instructions, and for DOS/VSE see DOS/VSE Data Management Concepts, and DOS/ 
VSEMacro User’s Guide) , such as CALL; or (2) coding assembler language branch 
instructions. 

In all cases, a save area must be provided that: 

• is aligned on a fullword boundary 

• is at least as large as the size specified in Figures 13,14, and 15, (but preferably 
the standard 18 words to ensure future compatibility) 

• All extended precision mathematical subprograms (both explicit and implicit) 
use all 16 registers, and require their callers to supply a full 18 word save area. 

• has its address in general register 13 at the time of the CALL macro instruction 
or branch 

Notes; 

1. For performance reasons, vs fortran subprograms use certain floating-point 
registers (see Figure 14), but do not save and restore original register con¬ 
tents. If you wish floating-point information retained, you must save it before 
calling the subprogram and restore it on return. 

2. From the DOS/VSE control program register 1 is not used but the execution 
parameters are passed as bit settings in the communications area. 
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If the called subprogram uses vs fortran input/output, error processing, or inter¬ 
ruption routines (see Figure 17), the calling program must initialize the execution 
environment by executing the following two instructions before the branch is 
made: 

L 15,=V(VSCOM#) 

BAL 14,64(15) 

These instructions cause a branch into the VSCOM# subprogram, which initial¬ 
izes return coding and prepares routines to handle interruptions. If this initializa¬ 
tion is omitted, an interruption or error may cause abnormal termination. (After 
initialization, VSCOM# returns to the instruction following the BAL.) 

Note: 

An initialization entry to VSCOM# is not required if the main program is written 
in fortran, and the assembler language routine is an intermediate. 


rf\ 
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Entry Name(s) • 

Save Area 
(Fullwords) 

Registers Used 1 

Result 

Intermediate 

AINT 

9 

0 

2, 4,6 

ALGAMA, GAMMA 

9 

0 

2, 4,6 

ALOG, ALOGIO 

7 

0 

2, 4,6 

AMAXO, AMINO 

6 

0 


MAXO, MINO 

9 

0* 


AMAX1, AMIN1 

6 

0 


MAXI, MINI 

9 

0* 


AMOD, DMOD 

9 

0 

2, 4,6 

ARCOS, ARSIN 

10 

0 

2,4 

ATAN 

5 

0 

2, 4,6 

ATAN, ATAN2 

7 

0 

2, 4,6 

CABS 

7 

0,2 

4,6 

CCOS, CSIN 

9 

0,2 

4 

CDABS 

7 

0,2 

4,6 

CDCOS, CDSIN 

9 

0,2 

4 

CDEXP 

8 

0,2 

4,6 

CDLOG 

8 

0,2 

4,6 

CDSQRT 

9 

0,2 

4,6 

CEXP 

8 

0,2 

4,6 

CLOG 

8 

0,2 

4,6 

COS, SIN 

7 

0 

2,4 

COSH, SINH 

8 

0 

2,4 

COTAN, TAN 

7 

0 

2,4 

CSQRT 

9 

0,2 

4,6 

DARCOS, DARSIN 

13 

0 

2,4 

DATAN 

5 

0 

2, 4,6 

DATAN, DATAN2 

7 

0 

2, 4,6 

DCOS, DSIN 

7 

0 

2,4 

DCOSH, DSINH 

8 

0 

2,4 

DCOTAN, DTAN 

7 

0 

2, 4,6 

DERF, DERFC 

11 

0 

2, 4,6 

DEXP 

7 

0 

2 

DGAMMA, DLGAMA 

11 

0 

2, 4,6 

DLOG, DLOGIO 

9 

0 

2, 4,6 

DMAXI, DMIN1 

9 

0 


DSQRT 

7 

0 

2,4 

DTANH 

5 

0 

2, 4,6 

EXP 

11 

0 


ERF, ERFC 

11 

0 

2, 4,6 

IDINT, INT, IFIX 

9 

0* 


MOD 

9 

0* 


SQRT 

7 

0 

2 

TANH 

5 

0 

2, 4,6 

1 Floating-point; asterisk indicates general. 


Figure 13. Assembler Information for the Explicitly Called 
Mathematical Subprograms 


Entry Name(s) 

Save Area 
(Fullwords) 

Registers Used 1 | 

Result 

Intermediate 

CDMPY#, CDDVD# 

5 

0,2 

4,6 

CDVD#, CMPY# 

5 

0,2 

' 4,6 

FIXPI# 

18 

0* 


FRXPI# 

18 

0 


FDXPI# 

18 

0 


FRXPR# 

18 

0 


FDXPD# 

18 

0 


FCDXI# 

18 

0,2 


FCXPI# 

18 

0,2 


floating-point; asterisk indicates general. 


Figure 14. Assembler Information for the Implicitly Called 
Mathematical Subprograms 


Entry Name(s) 

Save Area (Fullwords) 

CCMPR# 

18 

CMOVE# 

18 

CNCAT# 

18 

LGE, LGT, LLE, LLT 

18 


Figure 15. Assembler Information for the Implicitly Called 
Character Subprograms. 


Entry Name(s) 

Save Area (Fullwords) 

DUMP, PDUMP 

18 

DVCHK 

10 

EXIT 

5 

OVERFL 

10 


Figure 16. Assembler Information for the 
Service Subprograms 
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When a branch instruction rather than a call macro instruction is used to invoke a * > 

subprogram, several additional conventions must be observed: 

• An argument (parameter) address list must be assembled on a fullword bound¬ 
ary. It consists of one 4-byte address constant for each argument, with the last 
address constant containing a 1 in its high order bit. 

• The address of the first item in this argument address list must be in general 
register 1. 

• From the DOS/VSE control program register 1 is not used but the execution 
parameters are passed as bit settings in the communications area. 

• The address of the entry point of the called subprogram must be in general 
register 15. 

• The address of the point of return to the calling program must be in general 
register 14. 

The total requirements for an assembler language calling sequence are illustrated 

in Figure 14. 


r ) 

vy. 
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L 

BAL 

• * 

15, = V(IBCOM#) 

14,64(15) 

• * 

These two statements are necessary only if the called subprogram uses 
FORTRAN input/output, error, or interrupt routines (see Appendix B), and if 
the main program is not a FORTRAN routine. 


LA 

13,area 

General register 13 contains the address of the save area. 


LA 

1,arglist 

General register 1 contains the address of the argument list. 


L 

I5,enfcry 

General register 15 contains the address of the subprogram. 


BALR 

14,15 

General register 14 contains the address of the point of return to the calling 
program. 


NOP 

« • 

X'id'' 

* • 

This statement is optional. The id represents an identification number. 
This number is supplied by the programmer and may be any hexadecimal 
integer less than 2’" — 1. 

entry 

DC 

or 

DC 

* • 

V (entry name) 


entry 

A (entry name) 

* * 

Note: In this case, the entry name must be defined by an EXTRN instruc¬ 
tion to obtain proper linkage. 

area 

DS 

* • 

xxF 

• • 

This statement defines the save area needed by the subprogram. The xx repre¬ 
sents the minimum size of the save area required; however, the programmer is 
advised to use a save area of 18 fullwords for all subprograms. (The minimum 
save area requirements are given in Figures 13 and 14 for the mathematical 
subprograms and in Figure 16 for the service subprograms.) 

For one argument 




CNOP 

DSOF 

Aligns the argument list at a fullword boundary. 

arglist 

DC 

X'80' 

Places a 1 in the high order bit of the only argument. 


DC 

AL3 (arg) 

Contains the address of the argument. 

For more than one argument 


arglist 

DC 

A (arg,) 

Contains the address of the first argument. 


DC 

• 

• 

A (arg*) 

Contains the address of the second argument. 


• 

DC 

X'80' 

Places a 1 in the high order bit of tire last argument. 


DC 

AL3 (argn) 

Contains the address of the last argument. 


Figure 17. General Assembler Language Calling Sequence 
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Supplying Correct Parameters 

Arguments must be of the proper type, length, quantity, and in certain cases, with¬ 
in a specified range, for the subprogram called. 

For mathematical and character subprograms, this information can be found in 
Figures 2 through 6. integer *4 denotes a signed binary number four bytes long. 
real *4 and real *8 are normalized floating point numbers, 4 and 8 bytes long, 
respectively, complex *8 and complex *16 are complex numbers, 8 and 16 bytes 
long, respectively, whose first half contains the real part, and whose second half 
contains the imaginary part. Each part is a normalized floating-point number. 
Four-byte argument types must be aligned on fullword boundaries, and 8-byte and 
16-byte types must be aligned on doubleword boundaries. 

Argument information for nonmathematical subprograms can be found in “Ser¬ 
vice Subprograms.” 

Error messages resulting from incorrect arguments are explained in “Appendix C. 
Library Interruption Procedures, Error Procedures, and Messages.” 




Results 

Each mathematical subprogram returns a single answer of a type listed in Figures 2 
through 6 (see “Function Value Type”). The integer answers are returned in 
general register 0, real answers are returned in floating-point register 0, and com¬ 
plex answers are returned in floating-point register 0 and 2. Result registers are 
listed by subprogram entry name in Figure 12. 

For extended precision mathematical subprograms, results are always returned in 
the floating-point registers: 0 and 2 for REAL * 16 results, and 0,2,4, and 6 for com¬ 
plex *32 results. 

The location and form of the service subroutine results can be determined from 
the discussion in “Service Subprograms.” 


Example 

To find the square root of the value in AMNT, the library square root subprogram 
(entry name SQRT) could be invoked, using the following statements (for 
assembler language MAIN programs only): 


L 

15, = V (VSCOM#) 

BAL 

14,64(15) 


LA 

13,SAVE 

CALL 

SQRT, (AMNT), VL 

STE 

0,ANSWER 


SAVE 

DS 

18F 

AMNT 

DC 

E’144’ 

ANSWER 

DC 

E’O’ 
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(The VL operand in CALL indicates that the macro expansion should flag the end 
of the parameter list.) 

Employing only assembler language instructions, the sequence would be: 



L 

15,=V (VSCOM#) 


BAL 

14,64(15) 


LA 

13,SAVE 


LA 

1,ARG 


L 

15,ENTRY 


BALR 

14,15 


STE 

0,ANSWER 

ENTRY 

DC 

V(SQRT) 

ANSWER 

DC 

E’0’ 

SAVE 

DS 

18F 


DS 

OF, 

ARG 

DC 

X’80’,AL3 (AMNT) 

AMNT 

DC 

E’144’ 


Note that, in both cases, a branch to VSCOM# is provided, a save area is set up, 
and AMNT meets argument specifications by being a four-byte non-negative nor¬ 
malized floating-point number, aligned on a fullword boundary. 

In both cases, the answer is returned in floating-point register 0 as a four-byte 
floating-point number. 

SPACE CONSIDERATIONS 

Many of the mathematical subprograms require other mathematical subprograms 
for their calculations. In addition, most of the subprograms use the input/output, 
error processing, and interruption library subroutines. (This interdependence is 
outlined in “Appendix B. Storage Estimates.”). Thus, although the programmer 
may request just one vs fortran subprogram, the requirements of that 
subprogram may make the resultant load module quite large. The SQRT routine, 
for example, takes only 344 bytes of storage itself, but requires other subroutines 
that increase the load module size by approximately 20,000 bytes. 
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Appendix B: Storage Estimates 


This Appendix contains decimal storage estimates (in bytes) for the library 
subprograms. The estimate given does not include any additional mathematical 
subprograms for vs fortran routines that the subprograms may use during 
execution. The entry-names of any additional mathematical library subprograms 
used are given in Figure 18. Figures 18,19, and 20 also indicate which mathematical 
and service subprograms require VS FORTRAN routines for input/output, interruption, 
and error procedures. 

The programmer must add the estimates for all subprograms and routines needed 
to determine the amount of storage required. If the programmer has not made 
allowances for the storage required by any of these additional routines (see Figure 
21), the amount of available storage may be exceeded and execution cannot begin, 
or may terminate abnormally. 


Entry Name (s) 

Decimal Estimates in Bytes 

Additional Mathematical 
Subprograms Used 

I/O, Error 
& Interrupt 
Routines 

AINT 

80 


No 

ALGAMA, GAMMA 

848 

ALOG, EXP 

Yes 

ALOG, ALOGIO 

464 


Yes 

AMAXO, AMINO, MAXO, MINO 

224 


No 

AMAX1, AMIN1, MAXI, MINI 

224 


No 

AMOD, DMOD 

120 


No 

ARCOS, ARSIN 

496 

SQRT 

Yes 

ATAN 

200 


No 

ATAN, ATAN2 

488 


Yes 

CABS 

192 

SQRT 

Yes 

CCOS, CSIN 

760 

EXP. SIN/COS 

Yes 

CDABS 

200 

DSQRT 

Yes 

CDCOS, CDSIN 

832 

DEXP, DSIN/DCOS 

Yes 

CDDVD#, CDMPY# 

240 


No | 

CDEXP 

624 

DEXP, DSIN/DCOS 

Yes 

CDLOG 

488 

DLOG, ATAN2 

Yes 

CDSQRT 

328 

DSQRT 

Yes 

CDVD#, CMPY# 

216 


No 

CEXP 

592 

EXP, SIN/COS 

Yes 

CLOG 

464 

ALOG, ATAN2 

Yes 

COS, SIN 

504 


Yes 

COSH, SINH 

504 

EXP 

Yes 

COTAN, TAN 

648 


Yes 

QCABS 

344 

QSQRT 

No* 

CQCOS, CQSIN 

1,100 

QEXP, QSIN, QCOS 

Yes 

CQDVD#, CQMPY# 

576 


No 

CQEXP 

624 

QEXP, QSIN, QCOS 

Yes ! 

CQLOG 

584 

QLOG, QATAN2 

Yes 

CQSQRT 

504 

QSQRT 

No* 

CSQRT 

312 

SQRT 

Yes 

CXMPR# (see Figure 20.) 




DARCOS, DARSIN 

648 

DSQRT 

Yes 

DATAN 

312 


No 

DATAN, DATAN2 

648 


Yes 

DCOS, DSIN 

696 


Yes 

DCOSH, DSINH 

592 

DEXP 

Yes 

DCOTAN, DTAN 

760 


Yes 

DERF, DERFC 

808 

DEXP 

Yes 

DEXP 

704 


Yes 

DGAMMA. DLGAMMA 

1056 

DLOG,DEXP 

Yes 

DLOG, DLOGIO 

538 


Yes 

* (See notes at end of figure.) 


Figure 18. Mathematical Subprogram Storage Estimates (Part 1 of 2) 
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Entry Name(s) 

Decimal Estimates in Bytes 

Additional Mathematical 
Subprograms Used 

I/O, Error, 

& Interrupt 
Routines 

DMAX1, DMIN1 

120 


No 

DSQRT 

352 


Yes 

DTANH 

304 

DEXP 

Yes 

EXP 

424 


Yes 

ERF, ERFC 

520 

EXP 

Yes 

FCDXPI# 

560 

CDMPY #/CDDVD# 

Yes 

FCXPI# 

536 

CDVD#/CMPY# 

Yes 

FCQX1# 

608 

CQMPY#, CQDVD# 

Yes 

FDXPD# 

464 

DEXP, DLOG 

Yes 

FDXPI# 

368 

Yes 

FQXPI# 

384 


Yes 

FQXPQ#, FQXP2#t 

2.880 


Yes 

FRXPR# 

432 

EXP, ALOG 

Yes 

FIXPI# 

368 

Yes 

FRXPI# 

360 


Yes 

IDINT, INT 

136 


No 

MOD 

56 


No 

QARCOS, QARSIN 

1,104 

QSQRT 

Yes 

QATAN, QATAN2 

1,160 

Yes 

QCOS, QSIN 

976 


Yes 

QCOSH, QSINH 

896 

QEXP 

Yes 

QCOTAN, QTAN 

1,112 

Yes 

QERF, QERFC 

1,200 

QEXPf 

Yes 

QEXP, QLOG, QLOGlOt 

2,880 

Yes 

QSQRT 

520 


Yes 

QTANH 

664 

QEXP 

No* 

SQRT 

344 

Yes 

TANH 

256 

EXP 

Yes 

* Note that although these mathematical subprograms do not themselves require the input/output, error or interruption routines, 
they use other mathematical subprograms which do. 

t All share the same subroutine. 

f When the argument falls between 2.84375 and 13.306, the module 1FYQERF2 (size 1,300 bytes) is also used. IFYQERF2 in 
turn uses routine FQXPQ#. 


Figure 18. Mathematical Subprogram Storage Estimates (Part 2 of 2) 


Entry Name 

Decimal 

Estimates 
(in bytes) 

I/O, Error 
& Interrupt 
Routines 

DUMP/PDUMP 

870 

Yes 

DVCHK 

60 

Yes 

EXIT 

32 

Yes 

OVERFL 

72 

Yes 


Figure 19. Service Subprogram Storage Estimates 
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Entry Name(s) 1 

Decimal 

Estimates 
(in bytes) 

I/O, Error, 
and Interrupt 
Routines 

CCMPR#, CXMPR# 2 

604 

Yes 3 

cmovb£ 

456 

Yes 

CNCA1# 

480 

Yes 

LGE, LGT, LLE, LLT 

1728 

Yes 

Notes to Figure: 

1. No additional character subprograms are used. 

2. The entry point CXMPR# is used for complex operands. 

^ Tliaro 1C I fC\ orrAr a* OVlflUH 4A _ a _-_ 

A1 ‘ v * v */ v WAV* Vi imviiupi ivuuuv lllTVli&U IV1 tliC ^AlUflXTf CllUy Hell11C. 


Figure 20. Character Subprogram Storage Estimates 



Routine Name 

Decimal Estimates 
(in bytes) 

IFYUATBL 4 

Installation dependant 

IFYUOPT 

Installation dependent 

IFYDIOCS 

360 

IFYIBCOM 

2452 

IFYLDFIO 

4372 

IFYNAMEL 

3356 

IFYOPSYS 5 

672 

IFYVASU 

2526 

IFYVASYN 3 

1696 

IFYVCLOS 

596 

IFYVCOMD 

8799 

IFYVCOMH 

4640 

IFYVCOM2 

736 

IFYVCONI 

740 

IFYVCOND 

1316 

IFYVCVTH 

4216 

IFYVDIOS 2 

2500 

IFYVERRE 

430 

IFYVERRM 

1124 

IFYVFNTH 

1414 

IFYVIIOS 

632 

IFYVINQR 

1792 

IFYVMOPT 

735 

IFYVOPEN 

1693 

IFYVSCOM 

2252 

IFYVSERH 

203 

IFYVSIOS 1 

5724 

IFYVSTAE 

1671 

IFYVTEN 

680 

IFYVTRCH 

746 

IFYVVIOS 1 

2304 


Notes to Figure: 

1 This module also requires dynamic storage. For each I/O unit used, the amount (in bytes) is 184 
+ buffer size (s). 

2 This module also acquires dynamic storage. For each I/O unit used, the amount (in bytes) is 224 
+ buffer size(s). 

3 This module also acquires dynamic storage. For each I/O unit used, the amount (in bytes) is 256 
+ buffer size (s). 

* The number of bytes in table IFYUATBL may be computed by the formula 16fl + 8, where n is 
the number of data set reference numbers requested at installation time. 

5 This routine is for DOS/VSE only. 


Figure 21. Library Execution-Time Routines Storage Estimates 


/-v 
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APPENDIX C. LIBRARY INTERRUPTION PROCEDURES» ERROR PROCEDURES* AND MESSAGES 


This appendix contains brief explanations of the program 
interruption and error procedures used by the FORTRAN library. 
The messages generated by the VS FORTRAN library are also given. 
A full description of program interrupts is given in the 
publication IBM System/370 Principles of Operation . For detailed 
information about error processing and message formats* see VS 
FORTRAN Application Programming* Guide . 


LIBRARY INTERRUPTION PROCEDURES 


The VS FORTRAN library processes those interrupts that are 

described below* all others are handled directly by the system 

Supervisor ’ 

1. When an interrupt occurs* indicators are set to record 
exponent overflow* underflow* fixed-point* floating-point or 
decimal divide exceptions. These indicators can be 
interrogated dynamically by the subprograms described in the 
chapter* "Service Subroutine Subprograms." 

2. A message is printed on the object program error unit when 
each interrupt occurs. The old program status word (PSW) 
printed in the message indicates the cause of each 

interrupt. 

3. Result registers are changed when exponent overflow or 
exponent underflow (codes C and D) occur. Result registers 
are also set when a floating-point instruction is referenced 
by an assembler language execute (EXEC) instruction. 

4. Condition codes set by floating-point addition or 
substraction instructions are altered for exponent underflow 
(code D). 

5. After the foregoing services are performed* execution of the 
program continues from the instruction following the one 
that caused the interrupt. 


LIBRARY ERROR PROCEDURES 


During execution* the mathematical subprograms assume that the 
argument(s) is the correct type. However, some checking is done 
for erroneous arguments (for example* the wrong type* invalid 
characters, the wrong length* etc.)* therefore, a computation 
performed with an erroneous argument has an unpredictable 
result. However* the nature of some mathematical functions 
requires that the input be within a certain range. For example* 
the square root of a negative number is not permitted. If the 
argument is not within the valid range given in Figures 2 
through 6* an error messgae is written on the object program 
error unit data set defined by the installation during system 
generation. The execution of this load module or phase is 
terminated and control is returned to the operating system. 
However* execution can continue* with extended error handling 
for this program. This facility provides for standard corrective 
action by the user. For a full description of extended error 
handling* see VS FORTRAN Application Programming* Guide . 
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LIBRARY MESSAGES 


The VS FORTRAN library generates three types of messages? 

• Program interrupt messages 

• Execution error messages 

• Operator messages 

All library messages are numbered. Program interrupt messages 
are written when an exception to a system restriction occurs, 
such as when an invalid storage address or an authorized access 
to protected storage is requested. Execution error messages are 
written when a FORTRAN library function or subroutine is misused 
or an I/O error occurs. Operator messages are written when a 
STOP n or PAUSE statement is executed. 

Refer to "Section 1. Guide" of VS FORTRAN Diagnosis when a 
problem recurs after you have performed the specified programmer 
response for the message received. 


PROGRAM INTERRUPT MESSAGES 

Program interrupt messages are written with the old Program 
Status Word (PSW), which aids the programmer in determining the 
nature of the error. 

Program interrupt messages consist of messages IFY207I, IFY208I, 
IFY209I, and IFY210I. 


IFY207I VFNTH - PROGRAM INTERRUPT (P) - OVERFLOW PSH 
xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: The message indicates that an exponent-overflow 

exception, identified by the character C in the eighth position 
of the PSW, has occurred. This exception occurs when the result 
of a floating-point arithmetic operation is greater than or 
equal to 16 63 (approximately 7.2xl0 75 ). 

Supplemental Data Provided: The floating point number (nnnnnnnn) 
before alteration. 

Standard Corrective Action: Execution continues at the point of 
the interrupt with the result register set to the largest 
possible correctly-signed floating-point number that can be 
represented in short precision (16* 3 *(1-16- 6 )), in long 
precision (16 63 *(1-16- 14 ), or in extended precision 
(16 63 x(l-16- 28 )). 


Programmer Response: Make sure that a variable or variable 
expression does not exceed the allowable magnitude. Verify that 
all variables have been initialized correctly in previous source 
statements and have not been inadvertently modified. 


IFY208I VFNTH - PROGRAM INTERRUPT (P) - UNDERFLOW PSW 
xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: The message indicates that an exponent-underflow 

exception, identified by a D in the eighth position of the PSW, 
has occurred. This exception occurs when the result of a 
floating-point arithmetic operation is less than 16- 65 
(approximately 5.4 x 10- 79 ). 

Supplemental Data Provided: The floating point number (nnnnnnnn) 
before alteration. 

Standard Corrective Action: Execution continues at the point of 
the interrupt with the result register set to a true zero of 
correct precision. 
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Programmer Response: Make sure that a variable or variable 
expression is not smaller than the allowable magnitude. Verify 
that all variables have been initialized correctly in previous 
source statements and have not been inadvertently modified. 


IFY209I VFNTH - PROGRAM INTERRUPT CP) - DIVIDE CHECK PSW 
xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: This message indicates that an attempt to divide 

by zero has occurred. A fixed-point-divide exception is 
identified by a 9 in the eighth position of the PSW; a 
floating-point-divide exception by an F. 

Supplemental Data Provided: Floating-point number (nnnnnnnn) 
before alteration* for a floating-point interrupt. 

Standard Corrective Action: For floating-point-divide, 
execution continues at the point of the interrupt with the 
result registers set to* 

1. True zero of correct precision for case of n/0 where n=0. 

2. Largest possible floating-point number of correct precision 
for case of n/0 where n#0. For fixed-point-divide, leave 
registers unmodified and continue execution. 

Programmer Response: Either correct the source where division 
by zero is occurring, or modify previous source statements to 
test for the possibilities, or bypass the invalid division. 


IFY210I VFNTH - PROGRAM INTERRUPT (P/O) - CCCCCCCCCCCCCC PSW 
xxxxxxxxxxxxxxxx 

Explanation: The operating system has detected a condition that 

causes a program interruption. 

The letter P enclosed in parentheses indicates that the 
interruption was precise. This will always be the case for 
non-specification interrupt messages in FORTRAN except when 
using machines with special hardware on which imprecise 
interruptions may occur. The letter 0 enclosed in parentheses 
indicates that extended precision floating point simulation has 
taken place and a secondary interrupt occurred. 

The eighth character position in the PSW (1, 4, 5, 6, 7, 9, C, 

D, or F) represents the hexadecimal code number associated with 
the type of interrupt. The following text describes those 
interrupts. 

| CODE 1—Operation Exception: 

An operation exception is recognized when the processor 
encounters an instruction with an invalid operation code. The 
operation code may not be assigned, or the instruction with that 
operation code may not be available on the processor. (For the 
purpose of recognizing an operation exception, the first eight 
bits of an instruction, or, when the first eight bits have the 
hexadecimal value B2, the first 16 bits form the operation 
code. ) 

I Supplemental Data Provided: The instruction-length code is 1, 2, 

I or 3. 

| Standard Corrective Action: The operation is suppressed. 

| Programmer Response: Correct the operation code. 

CODE 4—Protection Exception: 

The protection exception (code 4) is recognized when the key of 
an operand in storage does not match the protection key in the 
PSW. A message is issued only if a specification exception (code 
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6) has already been recognized in the same instruction. 
Otherwise* the job terminates abnormally. 

Supplemental Data Provided: None. 

standard Corrective Action: The interrupted instruction is 

ignored and execution continues at point of interrupt. 

\ 

Programmer Response: If the job has been terminated with a 
completion code of SYSTEM=0C6 (Specification Interrupt)* correct 
the source statements that are causing boundary misalignment. 

CODE 5—Addressing Exception: 

The addressing exception (code 5) is recognized when the address 
of the data is outside of the addressable storage for the 
particular system configuration or installation. A message is 
issued only if exception codes 5 or 6 have already been 
recognized in the same instruction. Otherwise* the job 
terminates abnormally. 

Supplemental Data Provided: None. 

Standard corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: If the job has been terminated with a 
completion code of SY$TEM=0C6 (Specification Interrupt)* correct 
the source statements that are causing boundary misalignment. 

CODE 6—specification Exception: 

The specification exception (code 6) is recognized when a data 
address does not specify an integral boundary for that unit of 
information as required by the instruction* or an improper 
register is used in an instruction. For example* a specification 
error would occur during execution of the following 
instructions* 

DOUBLE PRECISION D, E 
COMMON A* B, C 
EQUIVALENCE (B, D) 

D = 3.0D02 

Note: If an instruction causes a boundary violation* a 

specification interrupt will occur and the message will be 
issued with code 6. The boundary-adjustment routine will then be 
invoked if the BOUNDARY=ALIGN option was specified in the 
FORTLIB macro instruction during program installation. If an 
instruction that has been processed for boundary misalignment 
also contains a protection, addressing* or data error* the 
interrupt message will be reissued with the appropriate code (4* 
5* or 7). The job will then terminate because both a 
specification error and a protection* addressing* or data error 
have been detected. The completion code will specify that the 
job terminated because of the specification error. 

Supplemental Data Provided: None. 

Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: Make sure that proper alignment of 
variables is guaranteed. Arrange variables in fixed descending 
order according to length, or force proper alignment with dummy 
variables. Construct COMMON blocks so that the displacement of 
each variable can be evenly divided by the element length 
associated with the variable. Use the MAP option for information 
on the relative address of each variable in the block. Make sure 
that EQUIVALENCE statements do not cause misalignment. 

CODE 7—Data Exception: 
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The data exception (code 7) is recognized when the sign or digit 
codes for a CONVERT TO BINARY instruction are incorrect. 

Supplemental Data Provided: None. 

Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at the point of interrupt. 

Programmer Response: If the job has been terminated with a 
completion code of SYSTEM=0C6 (specification interrupt)* correct 
the source statements that are causing boundary misalignment. 

CODE 9—Fixed-Point-Divide Exception: 

The fixed-point-divide exception (code 9) is recognized when 
division of a fixed-point number by zero is attempted. For 
example* a divide exception would occur during execution of the 
following statement? 

K=I/J 

where 

J=0 and 1=7 

Supplemental Data Provided: None. 

Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: Either correct the source where division 
by zero is occurring* or modify previous source statements to 
test for the possibility of, or to bypass* the invalid division. 

CODE C—Exponent-Overflow Exception: 

The exponent-overflow exception (code C) is recognized when the 
result of a floating-point addition, subtraction, 
multiplication* or division is greater than or equal to 16 63 
(approximately 7.2xl0 75 ). For example* an exponent-overflow 
would occur during execution of the statement? 

A=1.0E + 75 + 7.2E + 75 

When the interrupt occurs* the result register contains a 
floating-point number whose fraction is normalized and whose 
sign is correct. However* the number is not usable for further 
computation since its characteristic field no longer reflects 
the true exponent. The content of the result register as it 
existed when the interrupt occurred is printed following the 
program interrupt message with the format? 

REGISTER CONTAINED hhhhhhhhhhhhhhhh 

where hhhhhhhhhhhhhhhh is the floating-point number in 
hexadecimal notation. (An additional 16 hexadecimal characters 
are printed for extended-precision numbers.) 

Exponent overflow causes "exponent wraparound" - i.e.* the 
characteristic field represents an exponent that is 128 smaller 
than the correct one. Treating bits 1 to 7 (the exponent 
characteristic field) of the of the floating-point number as a 
binary integer* the true exponent may be computed as follows? 

TE = (Bits 1 to 7) + 128 - 64 

Standard corrective Action: The result register is set to the 
largest possible floating-point number that can be represented 
in short precision (16 63 *(1-16- 6 )) in long precision 
(16 63 #(1-16- 14 )* or in extended precision (16* 3 *(1-16- 28 ))* but 
the sign of the result is not changed. The condition code is not 
altered. 
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Programmer Response: Make sure that a variable expression does 
not exceed the allowable magnitude. Verify that all variables 
have been initialized correctly in previous source statements 
and have not been inadvertently modified in intermediate source. 

CODE D—Exponent-underflow Exception: 

The exponent-underflow exception (code D) is recognized when the 
result of a floating-point addition, subtraction, 
multiplication, or division is less than 16-* 5 (approximately 
5.4xl0- 79 ). For example, an exponent-underflow exception would 
occur during execution of the statement: 

A=-1.0E - 50 X 1.0E - 50 

Although exponent underflows are maskable, FORTRAN jobs are 
executed with the mask enabled so that the library will handle 
such interrupts. 

When the interrupt occurs, the result register contains a 
floating-point number whose fraction is normalized and whose 
sign is correct. However, the number is not usable for further 
computation since its characteristic field no longer reflects 
the true exponent. The content of the result register as it 
existed when the interrupt occurred is printed following the 
program interrupt message with the format: 

REGISTER CONTAINS hhhhhhhhhhhhhhhh 

where hhhhhhhhhhhhhhhh is the floating-point number in 
hexadecimal notation. (An additional 16 hexadecimal characters 
are printed for extended-precision numbers.) Exponent overflow 
causes "exponent wraparound” - i.e., the characteristic field 
represents an exponent that is 128 larger than the correct one. 
Treating bits 1 to 7 (the exponent characteristic field) of the 
floating-point number as a binary integer, the true exponent may 
be computed as follows: 

TE = (Bits 1 to 7) - 128 - 64 

Standard Corrective Action: The result register is set to a true 
zero of correct precision. If the interrupt resulted from a 
floating-point addition or subtraction operation, the condition 
code is set to zero to reflect the setting of the result 
register. 

Programmer Response: Make sure that a variable or variable 
expression is not smaller than the allowable magnitude. Verify 
that all variables have been initialized correctly in previous 
source statements and have not been inadvertently modified in 
intermediate source. To take advantage of the ’exponent 
wraparound* feature and override the FORTRAN interruption 
routine, a programmer may handle the interrupt in his own 
program, but must call an assembly language subroutine to issue 
a SPIE macro instruction. 

CODE F—Floating-Point-Divide Exception: 

The floating-point-divide exception (code number F) is 
recognized when division of a floating-point number by zero is 
attempted. For example, a floating-point divide exception would 
occur during execution of the statement: 

C=A/B 

where 

B=Q.0 and A=1.0 or B=0.0 and A=0.0 
Supplemental Data Provided: Registers before alteration. 
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Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt with 
result registers set to: 

1. True zero of the correct precision for the case of n/0 where 
n=0. 

2. Largest possible floating point number of correct sign and 
precision for case of n/0 where n*0. 

Programmer Response: Either correct the source statement(s) 
where division by zero is occurring* or modify previous source 
statements to test for the possibility of* or to bypass* the 
invalid division. 
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EXECUTION ERROR MESSAGES 


Execution error messages have the form : 

XFYxxxZ vfnth [message text] 

TRACEBACK FOLLOWS-ROUTINE ISN REG. 14,REG. 15,REG. 0,REG. 1 

The description of each diagnostic message contains the error 
number, the abbreviated module name for the origin of the error, 
and an explanation describing the type of error. In addition, 
supplemental data is provided and standard corrective action to 
be taken to correct the error is described. 

Variable information in the message is shown in lower case 
letters, and, in the corrective action descriptions, • denotes 
the largest possible number that can be represented for a 
floating-point value. 

The abbreviated module name for the origin of the error is? 

VASYN IFYVASYN routine (performs asynchronous I/O 
processing). 

VDIOS IFYVDIOS routine (performs direct access I/O 

operations for FORTRAN load module execution). 

VCVTH IFYVCVTH routine (performs conversions). 

VSIOS IFYVSIOS routine (performs I/O operations for FORTRAN 

load module execution). 

VCOMH IFYVCOMH routine (performs interruption and error 

procedures). 

VSERH IFYVSERH routine (performs the processing of errors 
detected during compilation of the load modules). 

LDFIO IFYLDFIO routine (performs list-directed I/O 
processing). 

NAMEL IFYNAMEL routine (performs namelist processing). 

other Mathematical routine implicit or explicit entry points 
(perform mathematical calculations). 

Note: Messages issued by the error handler contain no module or 
entry point name. For information on the error handling 
subroutines, refer to VS FORTRAN Application Programming 
Language Reference . 


IFY160I VCOMH - FORMAT NESTED PARENTHESES TABLE QVERFLOU. 

REDUCE NUMBER OF NESTED PARENTHESES IN PROGRAM AND 
RERUN 

I Explanation: The format contains more nested parentheses than 
I the library table can hold. 

| Supplemental Data Provided: None. 

I Standard Corrective Action: Parenthesis group is ignored. 

I Processing continues. Results are unpredictable. 

I Programmer Response: Reduce the number of parenthesis groups to 
I 50 or less. 


XFY161X VASYN - ASYNCHRONOUS X/O NOT SUPPORTED ON THIS 
OPERATING SYSTEM (DOS OR CMS) 
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( Explanation: A program called the asynchronous I/O scheduling 
routine while running in a DOS or CMS environment. 

Supplemental Data Provided: TRACEBACK PATH is provided. If 
GOSTMT is used as a compiler option* then TRACEBACK provides the 
ISN of the I/O statement making the asynchronous I/O request. 

Standard Corrective Action: The asynchronous I/O request is 
ignored and the ARRAY expected to be modified* if a READ (IN#) 
request* is unchanged. The ARRAY isn’t saved or written if a 
WRITE (OUT#) request. 

Programmer Response: Run the program on an OS system (MVS or 
VS1) or rewrite the program to use synchronous I/O 
(unformatted). 


IFY162I VVIOS (CVIOS, DVIOS) - WRITE STATEMENT CANNOT BE 
ISSUED TO SEQUENTIALLY ACCESSED VSAM RRDS FILE 
filename 

Explanation: An attempt was made to add a record to a 
sequentially accessed VSAM relative record file that was not 
empty when the file was opened. 

I Supplemental Data Provided: Name of the file upon which the 
I request was made. 

| Standard Corrective Action: The execution is terminated. 


Programmer Response: If a record must be added to a nonempty 
VSAM relative record file* use the access mode of DIRECT. 


( IFY163I VVIOS (CVIOS, DVIOS) - FILE POSITIONING INPUT/OUTPUT 
| STATEMENT IS NOT ALLOWED IN THE DIRECT ACCESS METHOD 

I Explanation: A file positioning input/output statement (REWIND* 
I BACKSPACE, or ENDFILE) was issued to a VSAM direct file. 

| Supplemental Data Provided: None. 

| standard Corrective Action: The execution is terminated. 

Programmer Response: Correct the program so that no file 
positioning input/output statements are issued for VSAM direct 
f i les. 


I IFY164I VVIOS (CVIOS, DVIOS) - RECORD LENGTH OF FILE filename 

j IS LONGER THAN THE ONE DEFINED IN VSAM CATALOG 

Explanation: The maximum record length for the file found in 

VSAM catalog (that is* the value specified in the RECORDSIZE 
parameter when the VSAM cluster is defined using Access Method 
Services) is less than the length of the record to be written. 

I Supplemental Data Provided: Name of the file upon which the 
I request was made. 

| Standard Corrective Action: The execution is terminated. 

Programmer Response: Either correct the program so that the 
length of the record to be written is not greater than the one 
in the VSAM catalog* or change the record length in the VSAM 
catalog by redefining the cluster. 


IFY165I VVIOS (CVIOS, DVIOS) - FILE filename IS CONNECTED TO 
A KEY SEQUENCED DATA SET 

Explanation: VS FORTRAN supports VSAM entry sequenced data sets 
(ESDS) and relative record data sets (RRDS). The file used was 
connected to VSAM key sequenced data sets (KSDS). 
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I Supplemental Data Provided: Name of the file upon which the 
I request was made. 

| Standard Corrective Action: The execution is terminated. 

I Programmer Response: Change the JCL so that the file is 
I connected to ESDS or RRDS. 


I IFY166I VVXOS (CVXOS, DVXOS) - ENDFXLE STATEMENT XS TREATED 

I AS DOCUMENTATION FOR VSAM FXLE filename 

I Explanation: A request was made to write an end-of-file mark on 
| a VSAM file. 

| Supplemental Data Provided: Name of the file upon which the 
I request was made. 

S Standard Corrective Action: The request is ignored. 

I Programmer Response: Remove the statement after carefully 
| checking the effect of removing the statement. 


XFY167X VVXOS (CVXOS, DVXOS) - ERROR ON VSAM FILE: WHEN 
ATTEMPTING TO PROCESS A(N) XXXXXXXXXX RC=yy ERROR 
CODE=ZZZ 

Explanation: An error was detected by VSAM while an input or 
output statement indicated by xxxxxxxxxx was being processed. 
The return code and the error code returned by VSAM were yy and 
zzz, respectively. 

I Supplemental Data Provided: Name of the operation that caused 
I the error and the return and error codes from VSAM. 

| Standard Corrective Action: The execution is terminated. 

I Programmer Response: Determine the cause for the error by 
I examining the VSAM return and error codes. 


I IFY168I VVXOS (CVXOS, DVXOS) - XXXXXXXXXX OPERATION XS ISSUED 
j TO UNOPENED VSAM FXLE ON UNIT UUU 

I Explanation: An input or output request was made to an unopened 
VSAM file. 

| Supplemental Data Provided: Name of the operation issued to an 
j unopened file. 

| Standard Corrective Action: The execution is terminated. 

I Programmer Response: Make sure that the OPEN statement for the 
I file was successfully executed. 


I IFY169I DFNTH - EXTENDED PRECISION OPERATION NOT SUPPORTED IN 
I DOS ENVIRONMENT, PSW, XXXXXXXXXX 

Explanation: An extended precision machine operation was 

attempted in the DOS/VSE environment that is not supported by 
the machine instruction set. This is generally a divide 
operation. 

Supplemental Data Provided: The program status word (PSbl) at the 
point of interrupt. An IFY210I message with TRACEBACK or a dump 
of storage follows. 

{ Standard Corrective Action: None. 

| Programmer Response: Change program to exclude the unsupported 
j instruction. 
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1FY170X VSXOS - OPEN OR CLOSE STATEMENT NOT ALLOI4ED ON OBJECT 
PROGRAM ERROR UNIT, REQUEST FOR FXLE filename 

Explanation: An OPEN or CLOSE statement Mas directed to the 
unit upon Mhich execution time error messages are being 
directed. 

Supplemental Data Provided: Name of the file connected to the 
error message unit. 

Standard Corrective Action: The request is ignored and the job 
terminated if an ERR= or IOSTAT parameter Mas not specified in 
the OPEN or CLOSE. 

Programmer Response: Change the program to request I/O to a 
unit not being used for error messages. 


XFY171X VSXOS - CLOSE STATUS OF KEEP IS NOT ALLOWED ON FXLE 
OPENED WITH STATUS OF SCRATCH, FXLE filename 


Explanation: The file connected to the unit specified in the 
CLOSE statement Mas opened as a SCRATCH file and cannot be kept 
at close time. 

Supplemental Data Provided: Name of the file connected to the 
unit specified in the CLOSE statement. 


Standard Corrective Action: The CLOSE status is changed to 
DELETE and execution proceeds. 


Programmer Response: Change either the OPEN or CLOSE STATUS 
parameter to agree Mith the file usage. 


XFY172X VSXOS - FXLE filename ALREADY CONNECTED TO A UNIT, 
OPEN REQUEST CANCELLED. 

Explanation: The file Mhose name appears in the message already 
is connected to a unit Mhich is different than the unit 
specified in the OPEN statement. 

Supplemental Data Provided: Name of the file specified in the 
OPEN statement. 

Standard Corrective Action: The OPEN request is ignored. 

Programmer Response: Change the program to specify a different 
unit in the OPEN request or change the logic to use the current 
unit to Mhich the file is connected. 


IFY173I VSXOS - OPEN SPECIFYING UNFORMATTED I/O ATTEMPTED ON 
FORMATTED FXLE filename 

Explanation: FORMATTED and UNFORMATTED I/O request on the same 
file is not alloMed. 

Supplemental Data Provided: Name of the file upon Mhich the 
request Mas made. 

Standard Corrective Action: The I/O operation is ignored. 

Programmer Response: Correct the program to direct FORMATTED 
and UNFORMATTED I/O to different files. 


XFY17AI VSXOS - OPEN SPECIFYING FORMATTED X/O ATTEMPTED ON 
UNFORMATTED FILE filename 

Explanation: FORMATTED and UNFORMATTED I/O request on the same 
file is not alloMed. 
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Supplemental Data Provided: Name of the file upon which the 
request was made. 

Standard Corrective Action: The I/O operation is ignored. 

Programmer Response: Correct the program to direct FORMATTED 
and UNFORMATTED I/O to different files. 


IFY1751 OPSYS - AN INVALID LITERAL PARAMETER WAS DETECTED ON 
THE CALL OPSYS STATEMENT 

Explanation: The first parameter in the call to OPSYS did not 
specify a literal of FILEOPT or LOAD. 

Supplemental Data Provided: None. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify the correct 
parameter value. 
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XFY176I OPSYS - THE FORTRAN LOGICAL UNIT NUMBER IS ASSIGNED 
TO SYSTEM USE* UNIT unit 

Explanation: The unit specified in the call to OPSYS currently 
has a file connected and cannot be modified. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to process the I/O on 
a different unit. 


XFY177I OPSYS - INVALID BLOCK SIZE SPECIFIED; ASCII (18-2048) 
OR EBCDIC (18-32767), UNIT unit 

Explanation: An invalid block size was specified for the unit 

set up for ASCII or EBCDIC processing. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify a block 
size consistent with the file usage. 


IFY178I OPSYS - INVALID BUFFER OFFSET SPECIFIED; GREATER THAN 
99, EXCEEDS BLOCK SIZE OR IS NEGATIVE, UNIT unit 

Explanation: The buffer offset specified was larger than the 
blocksize for the file, or was a negative value, or a value 
greater than 99. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify an offset 
consistent to the restrictions. 


XFY179I OPSYS - AN I/O OPERATION HAS ALREADY BEEN PERFORMED 
ON THE UNIT, REQUEST IGNORED FOR UNIT unit 

Explanation: An attempt was made to modify the parameters for a 

file which was already being used for I/O operations. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to process the I/O on 
a different unit. 


IFY180I VOPEN - FILE PARAMETER IS NOT VALID FOR AN OPEN 
STATEMENT, UNIT unit 

Explanation: The FILE= parameter on the OPEN statement did not 
specify a 7 character or less name and/or specified a name that 
did not start with an alphabetic character. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The OPEN statement is ignored. 
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Programmer Response: Correct the program to specify a correct 
filename. 


XFY181X VOPEN - STATUS PARAMETER XS NOT VALID FOR AN OPEN 
STATEMENT* UNXT unit 

Explanation: The STATUS= parameter did not specify NEW* OLD* 
SCRATCH* or UNKNOWN as the status of the file being opened on 
the unit. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: STATUS is set to UNKNOWN and 
processing continues. 

Programmer Response: Correct the program to specify a correct 
STATUS parameter. 


XFY182X VOPEN - ACCESS PARAMETER XS NOT VALXD FOR AN OPEN 
STATEMENT, UNIT unit 

Explanation: The ACCESS 5 parameter did not specify SEQUENTIAL 

or DIRECT for the type of file access to be employed on the 
unit. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The OPEN request is ignored. 

Programmer Response: Correct the program to specify a correct 
ACCESS parameter. 


IFY183I VOPEN - BLANK PARAMETER XS NOT VALXD FOR AN OPEN 
STATEMENT, UNIT Unit 

Explanation: The BLANK 5 parameter did not specify ZERO or NULL 
for the treatment of blanks on a FORMATTED I/O request. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The BLANK parameter is assigned the 
value NULL. 

Programmer Response: Correct the program to specify a correct 
BLANK parameter. 


XFY184I VOPEN - FORM PARAMETER XS NOT VALXD FOR AN OPEN 
STATEMENT, UNIT Unit 

Explanation: The FORM 5 parameter did not specify FORMATTED or 
UNFORMATTED for the file. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The OPEN request is ignored. 

Programmer Response: Correct the program to specify the correct 
formatting technique. 


XFY185X VOPEN - STATUS OF SCRATCH NOT ALLOWED FOR A NAMED 
FILE OPEN STATEMENT, UNIT unit 

Explanation: An OPEN requested FILE 5 and STATUS 51 SCRATCH* at 
the same time. The STATUS value is not allowed. 
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Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The STATUS value is set to UNKNOWN 
and processing continues. 

Programmer Response: Correct the program to make the two 
parameters consistent with each other. 


IFY186I VCLOS - STATUS PARAMETER ZS NOT VALZD FOR A CLOSE 
STATEMENT, UNZT unit 

Explanation: The STATUS 2 parameter did not specify KEEP or 
DELETE, or a STATUS of KEEP was specified on the CLOSE statement 
for a file that was opened with a STATUS of SCRATCH. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard Corrective Action: The STATUS value is set to DELETE if 
the file was opened as SCRATCH; otherwise, the status is set to 
KEEP. 

Programmer Response: Correct the program to specify the correct 
status values or make the status of the OPEN and CLOSE 
consistent with each other. 


IFY187I DSPAN - LONER BOUND OF ARRAY DZMN. GREATER THAN 

UPPER. 

Explanation: For an array with adjustable dimensions the lower 

bound of an array dimension has been specified greater than the 
upper bound. 

Supplemental Data Provided: None. 

Standard Corrective Action: Span calculations are not completed 
for this array. Invalid results will probably generated from 
references to this array. 

Programmer Response: Correct the calculation or specification 
of the dimensions. 


ZFY18EZ CZTFN - ARGUMENT TO CHAR FUNCTION GREATER THAN 255 

Explanation: A value greater than 255 (highest EBCDIC 
representation) has been specified for the CHAR function. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify correct value. 

ZFY189Z INDEX - INVALID LENGTH FOR INDEX - OP TUO. 

Explanation: The length specified for the second operand of the 
INDEX function is less than or equal to zero or greater than 
500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify the correct length. 
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IFY190I 


INDEX - INVALID LENGTH FOR INDEX - OP ONE 


Explanation: The length specified for the first operand of the 
INDEX function is less than or equal to zero or greater than 
500. 

supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify the correct length. 


IFY191I LXCMP - INVALID LENGTH FOR LEXICAL COMPARE - OPERAND 
TWO. 

Explanation: The length specified for the second operand of the 

LGE, LGT LIE, or LIT function is less than or equal to zero or 
greater than 500* 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify the correct length. 


IFY192I LXCMP - INVALID LENGTH FOR LEXICAL COMPARE - OPERAND 
ONE. 

Explanation: The length specified for the first operand of the 
LGE# LGT LLE# or LLT function is less than or equal to zero or 
greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify the correct length. 


IFY193I CCMPR - INVALID LENGTH FOR CHARACTER COMPARE - OP 
TWO. 

Explanation: The length of the second operand of a Character 
relational compare (.eq., .It.# ...) is less than or equal to 
zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 


IFY194I CCMPR - INVALID LENGTH FOR CHARACTER COMPARE ~ OP 
ONE. 

Explanation: The length of the first operand of a Character 
relational compare (.eq.# .It.# ...) is less than or equal to 
zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 
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XFY195X CMOVE - CHARACTER HOVE INVALID - TARGET AND SOURCE 
OVERLAP DESTRUCTIVELY• 

Explanations The storage locations assigned to the target and 
source are such that source data Mill be destroyed by the 
requested assignment. 

Supplemental Data Provided: None. 

Standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Check storage MAP for storage assignments. 
Also check EQUIVALENCE statements. 


IFY196I CMOVE - INVALID TARGET LENGTH FOR CHARACTER MOVE. 

Explanation: The length of the target (left of equal variable) 

is less than or equal to zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 


IFY197I CMOVE - INVALID SOURCE LENGTH FOR CHARACTER MOVE. 

Explanation: The length of the source (right of equal 

expression) is less than or equal to zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 


XFY198X CNCAT - CONCATENATED STRING LENGTH GREATER THAN 
TARGET 

Explanation: The concatenation of the specified character 

strings Mill produce a string Mhose length is greater than 500 
or greater than the length of the target (left of equal 
variable). 

Supplemental Data Provided: None. 

Standard Corrective Action: The concatenated string is truncated 
on the right. 

Programmer Response: Specify the correct length. 


XFY199X CNCAT - INVALID LENGTH FOR CONCATENATION OPERAND 

Explanation: The length of one of the operands of a 
concatenation operation is less than or equal to zero or greater 
than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The concatenation operation is not 
performed. 

Programmer Response: Specify the correct length. 
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ZFY200Z VZZOS - END OF ZNTERNAL FILE, Z/O PROCESSING ENDS 

Explanation: The end of an internal file was reached before the 
completion of an internal I/O request. 

Supplemental Data Provided: None. 

Standard Corrective Action: Return to END= label if the request 
is a READ; otherwise, the job is terminated. 

Programmer Response: Either keep a counter to avoid exceeding 
the end of record or file, or insert an END=n parameter on the 
READ statement for appropriate transfer of control on end of 
data set. Check all job control statements. 


j ZFY201Z VZZOS - REQUEST FOR ZNTERNAL FZLE CONTROL, CLOSE OR 
I LZST DZRECTED ZS NOT ALLOWED 

Explanation: A request for OPEN, CLOSE, list directed file 
input/output, or control operation has been requested for an 
internal file. Such operations are not supported for internal 
files. 

I Supplemental Data Provided: None. 

I Standard Corrective Action: The function is not performed, and 
I execution continues. 

( Programmer Response: Change the source program, and rerun the 
job. 


| ZFY203Z ZBCOM - ZNVALZD COMBINATION OF ZNZTZAL, TEST, AND 
INCREMENT VALUE FOR READ/I4RZTE ZMPLZED DO, FZLE 
filename 

Explanation: A READ/WRITE statement with an implied DO had an 
invalid combination of initial, test, and increment values (II, 
12, and 13, respectively) for one of its levels of nesting* 

1. 13=0, or 

2. I2<I1 and I3<I2-I1, or 

3. Il<12 and I3<0. 

Supplemental Data Provided: Filename. 

standard Corrective Action: Processing is terminated. 

Programmer Response: Check the statements which set the 
initial, test, and increment variables. 


IFY204I LDFIO - ITEM SIZE EXCEEDS BUFFER LENGTH, FZLE 
filename 

Explanation: For a non-complex number, the number is longer 

than the buffer. For a complex number, half the length of the 
number plus one (for the comma) is longer than the buffer. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure that the record length specified 
is large enough to contain the longest item in the I/O list. 
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IFY205I VASYN - I/O SUBTASK ABENDED 

Explanation: An asynchronous I/O subtask resulted in an 

abnormal termination. 

Supplemental Data Provided: None. 

Standard Corrective Action: Processing is terminated. 

Programmer Response: Verify that all DD statements are coded 
correctly and refer to the appropriate data sets. Check all READ 
and WRITE statements and any END FILE* REWIND, and BACKSPACE 
statements. Check the system completion code for assistance in 
determining the type of error that caused abnormal termination. 


IFY206I VCVTH - INTEGER VALUE OUT OF RANGE nnnnnnnn 

Explanation: An integer Mas too large to be processed by the 

load module. (The largest integer that can be processed is 
2XK15-1 for INTEGERX2 and 2XX31-1 for INTEGERX4.) 

Supplemental Data Provided: integer input for processing. 

Standard Corrective Action: Specify as much of the lower order 
part of the given integer as will fit for the integer size 
(INTEGERX2 or INTEGERS) specified. 

Programmer Response: (lake sure that all integer input data used 
is within the required range for the integer variable size. 


IFY207I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 


IFY208I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 

IFY209I 

Explanation: Refer to "Program Interrupt Messages" for 

information on this message. 


IFY210I 

Explanation: Refer to "Program Interrupt Messages" for 

information on this message. 


IFY211I VCOMH - ILLEGAL field FORMAT CHARACTER SPECIFIED Char 
FILE filename 

Explanation: An invalid character has been detected in a FORMAT 
statement. 

Supplemental Data Provided: The field containing the character 
in error, the character specified, and the filename. 

Standard Corrective Action: Format field treated as an end of 
format. 

Programmer Response: Make sure that all format specifications 
read in at object time are valid. 
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IFY212X VCOHH - FORMATTED I/O, END OF RECORD, FILE filename 

Explanations An attempt has been made to read or write a 
record, under FORMAT control, that exceeds the buffer length. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: For a read, the remainder of the I/O 
list is ignored; for a write, a new record is started with no 
control character. 

Programmer Response: If the error occurs on input, verify that 
a FORMAT statement does not define a FORTRAN record longer than 
the record supplied by the data set. No record to be punched 
should be specified as longer than 80 characters. For printed 
output, make sure than no specification is longer than the 
printer’s line length. 


IFY213I 


VCOMH 

LDFIO 

VASYN 


READ, END OF RECORD, FILE filename 


Explanation: 

FOR VCOMH AND VASYN? The input list in an I/O statement without 
a FORMAT specification is larger than the logical record. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure the number of elements in the 
I/O list matches the number of items in the record. 

FOR LDFIO? A FORTRAN list-directed READ statement attempted to 
read more items from a variable spanned logical record than were 
present in the record. (This message can be issued only when the 
record format is variable spanned.) 

supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response? Make sure that the records and the input 
data agree in number. Either delete extra variable names or 
supply additional logical records. 

IFY214I [ VSIOS 1 - UNFORMATTED I/O, RECORD FORMAT NOT 

| VASYN | SPECIFIED AS VS OR VBS, FILE filename 


Explanation? 

FOR VSIOS? For unformatted records read or written in EBCDIC 
sequentially organized data sets, the record format 
specification must be variable spanned and can be blocked or 
unblocked. This message appears if the programmer has not 
specified variable spanned, or if an ASCII tape was specified. 

Supplemental Data Provided: Filename. 

Standard Corrective Action? For non-ASCII data sets, the read 
request is ignored; for a write request, the record form is 
changed to variable spanned. 

Programmer Response? Correct the record format to variable 
spanned. 
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For VASYN: For unformatted records in an asynchronous I/O 
operation, the record format specification (RECFM) did not 
include the characters VS. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: For an input operation, the read 
request is ignored; for an output operation, VS is assumed. 

Programmer Response: Change the record format specification to 
VS. 


ZFY215I VCVTH - ILLEGAL DECIMAL CHARACTER Char 

Explanation: An invalid character Mas found in the decimal 

input corresponding to an I, E, F, or D format code. 

Supplemental Data Provided: The record in Mhich the character 
appeared. 

Standard Corrective Action: 0 replaces the character 
encountered. 

Programmer Response: If an IFY214I message has occurred 
previously, correct the source causing the error. OtherMise, 
make sure that all decimal input is valid. Correct any FORMAT 
statements specifying decimal input Mhere character input should 
be indicated. 


IFY216I VSIOS - INVALID USE OF I/O CONTROL COMMAND AT LOAD 
POINT filename 

Explanation: The use of a BACKSPACE control command Mas 
recognized Mhen the file Mas at the start of the first record. 

Supplemental Data Provided: Filename for Mhich command Mas 
issued. 

Standard Corrective Action: The control command is ignored. 

Programmer Response: Correct program to ensure that a BACKSPACE 
Mill not occur at the first command for a file. 


IFY217I VSIOS - END OF DATA SET, FILE filename. 


IFY217I VASYN - END OF DATA SET, FILE filename. 

Explanation: An end of data set Mas sensed during a READ 

operation; that is, a program attempted to read beyond the data. 

Supplemental Data Provided: filename. 

Standard Corrective Action: The next file is read, that is, the 
data set sequence number is incremented by 1 in the OS 
environment. A permanent I/O error is set for the DOS 
environment. 

Programmer Response: Either keep a counter to avoid exceeding 
the end of record or file, or insert an END=n parameter on the 
READ statement for appropriate transfer of control on end of 
data set. Check all job control statements. 


IFY218I name - I/O ERROR, FILE filename, xxx...xxx 

Explanation: VASYN, VSIOS or VDIOS - One of the folloMing 
occurred: 

• A permanent I/O error has been encountered. 
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• For sequential I/O# the length of a physical record is 
inconsistent Mith the default block size or the block size 
specified on the job control statement. 

• An attempt has been made to read or write a record that is 
less than 18 bytes long on magnetic tape. 

xxx...xxx is the character string specifying the type of I/O 
error. 

Note: If a permanent I/O error has been detected while writing 
in the object error unit data set* the error message is written 
to the programmer either at the terminal or the OS SYSOUT data 
set# and job execution is terminated. 

Supplemental Data Provided: Abbreviated module name and 
filename. 

Standard Corrective Action: The interrupted instruction and the 
I/O request are ignored. After the traceback is completed# 
control is returned to the call routine statement designated in 
the ERR parameter of an I/O statement if that parameter was 
specified. 

Note: ERR=parameter is honored. 

Programmer Response: For sequential I/O# make sure that the 
length of the physical record is consistent with the default or 
specified block size. Check all job control statements. Make 
sure that no attempt has been made to read or write a magnetic 
tape record that is fewer than 18 bytes in length. 



VSIOS 

IFY219I 

VDIOS 

VASYN 


• • 


OPEN FAILED# MISSING OR INVALID CONTROL 
STATEMENT# FILE filename 


Explanation: 

FOR EBCDIC DATA SETS: 

Either a data set is referred to in the load module and no job 
control statement is supplied for it# or a job control statement 
has an erroneous filename. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The interrupted instruction is 
ignored# and execution continues and the I/O request is ignored. 

Note: If no job control statement has been supplied for the 
object error unit data set# the message is written either to the 
programmer at the terminal or console or to the OS SYSOUT data 
set# and the job is terminated. 

Programmer Response: Either provide the missing job control 
statement# or correct any erroneous job control statement. Refer 
to VS FORTRAN Application Programming: Guide for more 
information. 

FOR ASCII DATA SETS: 

A data set may have been referred to in the load module but had 
no corresponding job control statement# or the job control 
statement may have had an erroneous filename. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The I/O request is ignored and 
execution continues. 


•’■On 
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Programmer Response: Either provide the missing job control 
statement, or correct any erroneous filename. Also, for OS 
files, be sure that the LABEL parameter on the DD statement 
specifies AL (or NL provided that the DOB subparameter OPTCD-Q 
is also specified). Also be sure that the operating system 
permits the use of ASCII data sets. , 


IFY220I name - UNIT NUMBER OUT OF RANGEt UNIT unit 

Explanation: VSIOS or VASYN - A unit number exceeds the limit 
specified for unit numbers uihen the library Mas installed. 

Supplemental Data Provided: Abbreviated module name and unit 
number. 

Standard Corrective Action: The interrupted instruction is 
ignored, and execution continues. 

Programmer Response: Correct the invalid unit number. 


IFY221I NAMEL - NAME LARGER THAN EIGHT CHARACTERS. NAME=name 

Explanation: An input variable name is longer than oight 
characters. 

Supplemental Data Provided: First eight characters of the name 
specified. 

Standard corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Correct the invalid NAMELIST input 
variable, or provide any missing delimiters. 


IFY222I NAMEL - NAME NOT IN NAMELIST DICTIONARY NAME=name 

Explanation: An input variable name is not in the NAMELIST 
dictionary, or an array is specified Mith an insufficient amount 
of data. 

Supplemental Data Provided: The name specified. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Make sure that a correct NAMELIST 
statement is included in the source module for all variable and 
array names read in using NAMELIST. 


IFY223I NAMEL - END OF RECORD ENCOUNTERED BEFORE EQUAL SIGN. 
NAME=name 

Explanation: An input variable name or a subscript has no 

delimiter. 

Supplemental Data Provided: Name of item. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Make sure that all NAMELIST input data is 
correctly specified and all delimiters are correctly positioned. 
Check all delimiters. Make sure that sequence numbers are not 
present in columns 73 through 80. 
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IFY224I NAMEL - SUBSCRIPT FOR NON-DIMEMSIONED VARIABLE OR 
SUBSCRIPT OUT OF RANGE. NAME=name 

Explanation: A subscript is encountered after an undimensioned 
input name» or the subscript is too large. 

Supplemental Data Provided: Name of item. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Insert any missing DIMENSION statements* 
or correct the invalid array reference. 


IFY225I VCVTH - ILLEGAL HEXADECIMAL CHARACTER Char 

Explanation: An invalid character is encountered on input for 

the 2 format code. 

Supplemental Data Provided: Display the record in uihich the 
character appeared. 

Standard Corrective Action: 0 replaces the encountered 
character. 

Programmer Response: Either correct the invalid character* or 
correct or delete the Z format code. 


IFY226X VCVTH - REAL VALUE OUT OF RANGE chars 

Explanation: A real number Mas too large or too small to be 

processed by the load module. (The largest number that can be 
processed is 16 65 -1> the smallest number that can be processed 
is 16-* 5 .) 

Supplemental Data Provided: The field of input characters. 

Standard Corrective Action: If the number Mas too large* the 
result is set to 16 63 -1. If the number Mas too small* the result 
is set to zero. 

Programmer Response: Make sure that all real input is Mi thin 
the required range for the number specified. 


IFY227I LDFIO - ERROR IN REPEAT COUNT* FILE filename 

Explanation: A repeat count (k* -) Mas not folloMed by a 

blank* comma* or integer. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure that all repeat counts are 
folloMed by a valid character 2 a blank* a comma* or an integer. 


IFY228I VASYN - LAST ELEMENT IN THE I/O LIST HAS A LOWER 
ADDRESS THAN THE FIRST ELEMENT. FILE filename 

Explanation: An I/O list contained an element having a loMer 

storage address than the first element in the list. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The interrupted instruction is 
ignored* and execution continues. 

Programmer Response: Make sure that all elements in the I/O 
list are specified in the correct order. 
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ZFY230I VSERH - SOURCE ERROR AT ZSN * ' EXECUTION 

TERMZNATED. THE PROGRAM NAME ZS 'program*. 

Explanation: An attempt to run a program containing compile 

errors has been intercepted at the execution of the statement in 
error. 

Supplemental Data Provided: ISN of statement in compiled program 
that is in error* and the name of the routine or subroutine in 
which the ISN is located. 

Standard Corrective Action: Execution terminates with a return 
code of 16. 

Programmer Response: Correct the source program statement* and 
rerun the job. 


ZFY231Z VSIOS - SEQUENTIAL I/O ATTEMPTED ON A DIRECT ACCESS 
DATA SET* UNIT unit 


IFY231I VDIOS - DIRECT ACCESS I/O ATTEMPTED BEFORE AN OPEN OR 
DEFINE FILE* UNIT unit 

Explanation: (1) Direct access I/O statements are used for a 

sequential file* or I/O statements for a sequential file are 
used for a direct access file. (2) The same file cannot be 
opened in the same programming unit for both sequential and 
direct access processing. 

| Supplemental Data Provided: Unit number. 

| Standard Corrective Action: The I/O request is ignored. 

| Programmer Response: 

For Cause 1* Either include the necessary DEFINE FILE statement 
for direct access or delete the DEFINE FILE for a sequential 
file. Make sure that all job control statements are correct. 
Verify that all data sets are referenced with valid FORTRAN 
statements for the file type. 

I For Cause 2 ' Make sure the same filename is not used twice 
within the same program unit for different types of access. 

For Cause 3s For a file opened for direct access* the READ or 
WRITE statement must contain a record specification (REC= or 
u'r). 

For a file opened for sequential access* the READ or WRITE 
statement must not contain a record specification (REC= or 
u’r). 


IFY232I VDIOS - RECORD NUMBER nnnn OUT OF RANGE* FILE 
filename 

Explanation: The relative position of a record is not a 
positive integer* or the relative position exceeds the number of 
records in the data set. 

Supplemental Data Provided: Record number and filename. 

Standard Corrective Action: The I/O request is ignored. 

Programmer Response: Make sure that the relative position of 
the record on the data set has been specified correctly. Check 
all job control statements. 


IFY233I VDIOS - RECORD LENGTH GREATER THAN 32767 SPECIFIED, 
FILE filename 
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Explanation: The record length specified in the DEFINE FILE or 
OPEN statement exceeds the capabilities of the system and the 
physical limitation of the volume assigned to the data set in 
the job control statement. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: Record length is set to 32,000. 

Programmer Response: flake sure that appropriate parameters of 
the job control statement conform to specifications in the 
DEFINE FILE or OPEN statement; the record length in both must be 
equivalent and within the capabilities of the system and the 
physical limitations of the assigned volume. 


IFY234I VDIOS - ATTEMPT TO USE THE OBJECT ERROR UNIT AS A 
DIRECT ACCESS DATA SET, UNIT unit 

Explanation: The data set assigned to print execution error 

messages cannot be a direct access data set. 

Supplemental Data Provided: Unit number. 

Standard Corrective Action: The request for direct I/O is 
ignored. 

Programmer Response: Make sure that the object error unit 
specified is not direct access. 


IFY235I VDIOS - ATTEMPT TO USE A UNIT FOR DIRECT ACCESS I/O 

I4HICH IS CURRECTLY OPEN FOR SEQUENTIAL I/O, UNIT unit 

Explanation: A unit number assigned to a direct access data set 
is used for a sequential data set. 

Supplemental Data Provided: Unit number. 

Standard Corrective Action: The request for direct I/O is 
ignored. 

Programmer Response: Make sure that use of and/or reference to 
sequential data sets does not conflict with FORTRAN direct 
access data sets. Verify that device classes assigned by the 
installation do not conflict with the specification on the UNIT 
parameter of the job control statement. Make sure that the unit 
specified in a DEFINE FILE or OPEN statement defines a direct 
access data set. Check all job control statements. 


IFY236I VDIOS - DIRECT ACCESS READ REQUESTED BEFORE DATASET 
HAS CREATED, FILE filename 

Explanation: A READ is executed for a direct access data set 

that has not been created. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The I/O request is ignored. 

Programmer Response: Make sure that either a data set utility 
program has been used, or appropriate parameters have been 
specified on the associated job control statement. For further 
information, refer to VS FORTRAN Application Programming: Guide . 


IFY237I VDIOS - INCORRECT RECORD LENGTH SPECIFIED, FILE 
filename 

Explanation: The length of the record did not correspond to the 

length of the record specified in the DEFINE FILE or the OPEN 
statement. 
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Supplemental Data Provided? Filename. 

Standard Corrective Action? The I/O request is ignored. 

Programmer Response: Make sure that the length of the records 
supplied matches the length specified in the DEFINE FILE or the 
OPEN statement. If necessary* change the statement to specify 
the correct record length. 


XFY238I LDFIO - INCORRECT DELIMITER IN COMPLEX OR LITERAL 
INPUT» FILE filename 

Explanation: A literal string in the input record(s) Mas not 

closed uith a quotation mark (or Mas longer than 256 
characters); alternatively* a complex number in the input 
record(s) contained embedded blanks* no internal comma* or no 
closing right parenthesis. 

Supplemental Data Provided? Filename. 

Standard Corrective Action? The remainder of the I/O list is 
ignored. 

Programmer Response: Supply the missing quotation mark or amend 
the literal data to keep Mithin the 256—character limit if the 
error Mas in the literal input. Check complex input numbers to 
see that they contain no embedded blanks* and that they contain 
an internal comma and a closing right parenthesis. 


IFY239I VASYN - BLKSXZE IS NOT SPECIFIED FOR AN INPUT FILE* 
FILE filename 

Explanation: The block size for an input file Mas not specified 
in the JCL or Mas specified as zero. 

Supplemental Data Provided: Filename for Mhich error occurred. 

Standard Corrective Action: The I/O request is ignored. 

Programmer Response: Make sure the block size is specified on 
the JCL for a neM file. 


XFY240X 

VSTAE - ABEND CODE 
SCB/SDWA= HHHHHHHH. 

IS: SYSTEM SSSS* 

USER UUUU* 

XFY240I 

VSTAE - 10 - 

NOT RESTORED. PSU IS XXXXXXXXXXXXXXXX 

IFY240I 

VSTAE - REGS 
XXXXXXXX 

0-3 

XXXXXXXX XXXXXXXX 

xxxxxxxx 

IFY240I 

VSTAE - REGS 
XXXXXXXX 

4-7 

XXXXXXXX xxxxxxxx 

xxxxxxxx 

IFY240I 

VSTAE - REGS 
XXXXXXXX 

8-11 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

IFY240I 

VSTAE - REGS 

12-15 

xxxxxxxx xxxxxxxx 

xxxxxxxx 


xxxxxxxx 


Explanation: An abnormal termination occurred. In some 

instances* pointers to subroutine entry points may have been 
destroyed* causing the traceback map to be incomplete. If an 
incomplete subroutine traceback map is printed* the folloMing 
additional text appears betMeen message IFY240I and the 
traceback map? 
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TRACEBACK MAY NOT BEGIN WITH ABENDING ROUTINE. 

Supplemental Data Provided: SSSS represents the completion code 
if a system code caused termination; UUUU represents the 
completion code if a program code caused termination. 

For specific explanations of the completion codes* see the 
messages and codes manual that applies to your operating system. 

The SCB field (HHHHHHHH) gives the address of the STAE Control 
Block* which contains the old PSW and the contents of general 
registers at the time of abnormal termination. The PSW field 
gives the contents of the last FORTRAN program status word when 
abnormal termination occurred. 

Input/output operations associated with the error are defined as 
NOT RESTORED* RESTORED* or NONE, as follows: 

NOT RESTORED—Input/output has been halted and cannot be 
restored. 

RESTORED—Input/output has been halted. FORTRAN will attempt 
to restart I/O and then close data sets. 

NONE—No active I/O operations were present at abnormal 
termination time. Fortran will close data sets. 

Standard Corrective Action: None. 

Programmer Response: Use the abend code* the contents of the 
SCB and PSW* and any accompanying system messages* to determine 
the nature of the error. 


IFY241I FIXPI INTEGER BASE=0, INTEGER EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (I**J) in the 
subprogram IFYFIXPI (FIXPI#) where I and J represent integer 
variables or integer constants* I is equal to zero and J is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: Result = 0. 

Programmer Response: Make sure that integer variables and/or 
interger constants for an exponentiation operation are within 
the allowable range. If the base and exponent may or will fall 
outside that range during program execution* then either modify 
the operands or insert source code to test for the situation and 
make the appropriate compensation. Bypass the exponentiation 
operation if necessary. 


IFY242I FRXPI - REALM* BASE=0.0* INTEGER EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (RxxJ) in the 

subprogram IFYFRXPI (FRXPI#), where R represents a REAL*4 
variable or REAL*4 constant and J represents an integer variable 
or integer constant* R is equal to zero and J is less than or 
equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0*EXP<0,RESULT=•; 

If BASE=0.0,EXP=0*RESULT=1. 
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Programmer Response: Make sure that both the real variable or 
constant base and the integer variable or constant exponent for 
an exponentiation operation are uiithin the allowable range. If 
the base and exponent may or will fall outside that range during 
program execution* then either modify the operand(s)* or insert 
source code to test for the situation and make the appropriate 
compensation. Bypass the exponentiation operation if necessary. 


KJ 
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XFY243I FDXPI - REAL*8, BASE=0.0, INTEGER EXPONENT=exp LE 
ZERO 

Explanation: For an exponentiation operation (D*#J) in the 
subprogram IFYFDXPI (FDXPI#), where D representa a REALMS 
variable or REALX8 constant and J represents an integer variable 
or integer constant* D is equal to zero and J is less than or 
equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<0*RESULT=*; 

If BASE=0.0,EXP=0,RESULT=1. 

Programmer Response: Make sure that both the real variable or 
constant base and the integer variable or constant exponent for 
an exponentiation operation are within the allowable range. If 
the base and exponent may or will fall outside that range during 
execution* then either modify the operand(s)* or insert source 
code to test for the situation and make the appropriate 
compensation. Bypass the exponentiation operation if necessary. 


IFY244I FRXPR - REALX4* BASE=0.0, REAL*4 EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (R#*S) in the 

subprogram IFYFRXPR (FRXPR#)* where R and S represent REAL*4 
variables or REAL*4 constants* R is equal to zero and S is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<0*RESULT=»; 

If BASE=0.0,EXP=0*RESULT=1. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for an exponentiation operation are 
within the allowable range. If the base and exponent may or will 
fall outside that range during program execution, then either 
modify the operand(s)* or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 


IFY245I FDXPD REAL*8 BASE=0.0, REAL#8 EXPONENT=exp, LE ZERO 

Explanation: For an exponentiation operation (D*#P) in the 

subprogram IFYFDXPD (FDXPD#), where D and P represent REAL*8 
variables or REAL*8 constants, D is equal to zero and P is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action** Result=o. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for an exponentiation operation are 
within the allowable range. If the base and exponent may or will 
fall outside that range during program execution* then either 
modify the operand(s), or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 


IFY246J FCXPC C0MPLEX*8 BASE=0.0+0.01, EXPONENT=exp LE ZERO 

IFY24&X FCXPI C0MPLEXX8 BASE=0.0+0.0I, INTEGER EXPONENT=exp r 

LE ZERO 


Library Interruption and Error Procedures and Messages 113 



Explanation: For an exponentiation operation (Z*xj) in the 
subprograms IFYFCXPI (FCXPI#) and IFYFCXPC (FCXPC#), where Z 
represents a COMPLEXES variable or C0MPLEX*8 constant and J 
represents an integer variable or integer constant# Z is equal 
to zero and J is less than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0 , EXP<0,RESULT=*» 

If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Make sure that both the complex variable 
or constant base and the integer variable or constant exponent 
for an exponentiation operation are within the allowable range. 
If the base and exponent may or will fall outside that range 
during program execution# then either modify the operand(s), or 
insert source code to test for the situation and make the 
appropriate compensation. Bypass the exponentiation operation if 
necessary. 


IFY247X FCDXI COMPLEX*16 BASE=0.0+0.0l, INTEGER EXPONENT=mxp, 
LE ZERO 


XFY247I FCDCD COMPLEX*16 BASE=0.0+0.0X, EXPONENT=«XP, LE ZERO 

Explanation: For an exponentiation operation (Z**J) in the 
subprograms IFYFCDXI (FCDXI#) and IFYFCDCD (FCDCD#), where Z 
represents a C0MPLEXH16 variable or C0MPLEXK16 constant and J 
represents an integer variable or integer constant, Z is equal 
to zero and J is less than or equal to zero. 

supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<Q,RESULT=*; 

If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Make sure that both the complex variable 
or constant base and the integer variable or constant exponent 
for an exponentiation operation are within the allowable range. 
If the base and exponent may or will fall outside that range 
during program execution, then either modify the operand(s), or 
insert source code to test for the situation and make the 
appropriate compensation. Bypass the exponentiation operation if 
necessary. 


IFY248I FQXPXft REAL*16 BASE=0.0, INTEGER EXPONENT=tXp, LE 
ZERO 

Explanation: For an exponentiation operation (Q**J) in the 
subprogram IFYFQXPI (FQXPI#), where Q represents a REAL*16 
variable or constant and J represents an integer variable or 
constant, Q is equal to zero and J is less than or equal to 
zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<0,RESULT=»; 

If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Make sure that both the real variable or 
constant base and the integer variable or constant exponent for 
an exponentiation operation are within the allowable range. If 
the base and exponent may or will fall outside that range during 
execution, then either modify the operand(s), or insert source 
code to test for the situation and make the appropriate 
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compensation. Bypass the exponentiation operation if necessary 


XFY249I FQXPQft REALM16 BASE=base,REALM16 EXP=exp, BASE=0.0, 
AND EXP LE ZERO OR BASE LT ZERO AND EXP NE ZERO 

Explanation: For an exponentiation operation (X**Y) in the 

subprogram IFYFQXPQCFQXPQ#)» where X and Y represent REALX16 
variables or constants* if X equals zero* Y must be greater than 
zero* if X is less than zero* Y must equal zero. One of these 
conditions is violated. 

Supplemental Data Provided: Base and exponent specified. 

Standard Corrective Action: 

If BASE=0 and EXP<0,RESULT?* * 

If BA5E=0.0 and EXP=0*RESULT=1; 

If BASE=<0.0 and EXP*0*RESULT=|X|x*Y. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for on exponentiation operation are 
within the allowable range. If the base and exponent may or will 
fall outside that range during program execution* then either 
modify the operand(s)* or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 


XFY250X FQXPQ8 REALM16 BASE=base, REALM16 EXP=exp, ARGUMENT 
COMBINATION EXP.ML0G2 (BASE) GE 252 

Explanation: For an exponentiation operation in the subprogram 

IFYFQXPQ* the argument combination of y*log2(x) generates a 
number greater than or equal to 252. 

Supplemental Data Provided: The arguments specified. 

Standard Corrective Action: Result?*. 

Programmer Response: Make sure that the base and exponent are 
within the allowable range. If necessary* restructure arithmetic 
operations. 


XFY251X SQRT ARGUMENT=arg LT ZERO 

Explanation: In the subprogram IFYSSQRT (SQRT)* the argument is 
less than 0. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=|X | l ' z . 

Programmer Response: Make sure that the argument is within 
allowable range. Either modify the argument* or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function reference if necessary. 


XFY252X EXP ARG=arg* GT 174.673 

Explanation: In the subprogram IFYSEXPCEXP)* the argument is 
greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result?*. 

Programmer Response: Make sure that the argument to the 
exponentiation function is within allowable range. If the 
argument may or will exceed that range during program execution* 
then provide code to test for the situation and* If necessary* 
modify the argument or bypass the source referencing the 
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function subprogram 


IFY253I ALOG-ALOGIO ARG=arg, LE ZERO 

Explanation: In the subprogram IFYSLOG (ALOG and ALOGIO), the 

argument is less than or equal to zero. Because this subprogram 
is called by an exponential subprogram, this message may also 
indicate that an attempt has been made to raise a negative base 
to a real power. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: 

If X=0, RESULTS-*; 

If X<0, RESULT=log|X| or log |X|. 

10 

Programmer Response: Make sure that the argument to the 
logarithmic function is within the allowable range. If the 
argument may or will be outside that range during program 
execution, then provide code to test for the situation and, if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 


IFY254I SIN-COS A8S(ARG)=arg GE PI#(2#*1S) 

Explanation: In the subprogram IFYSSCN (SIN and COS), the 

absolute value of an argument is greater than or equal to 2 18 X 
pi (2 l8 X pi=.823549664062499960 + 06). 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=SQRT(2)/2. 

Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
program execution, then provide code to test for the situation 
and, if necessary, modify the argument or bypass the source 
referencing the function subprogram. 


IFY255I ATAN2 ARGUMENTS=0.0 

Explanation: In the subprogram IFYSATN2, when entry name ATAN2 

is used, both arguments are equal to zero. 

Supplemental Data Provided: None. 

Standard corrective Action: R e sult=o. 

Programmer Response: Make sure that both arguments do not 
become 0 during program execution, or are not inadvertently 
initialized or modified to 0. Provide code to test for the 
situation and, if necessary, modify the arguments or bypass the 
source referencing the function subprogram. 


XFY256I SINH-COSH/ARG/=/arg/, GE 175.366 

Explanation: In the subprogram IFYSSCNH (SINH or COSH), the 

argument is greater than or equal to 175.366. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: SINHCX)=±*; C0SHCX)=* 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
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program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 


XFY257I ARSIN-ARCOS /ARG/=/arg/ GT 1 

Explanation: In the* subprogram IFYSASCN (ARSIN or ARCOS)* the 

absolute value of the argument is greater than 1. 

Supplemental Data Provided * Argument specified. 

Standard Corrective Action: 

If x>l.0»ARCOS(x)=0* 

If <-1.0,ARC0SCx)=pi; 

If x>1.0,ARSIN=pi/2j 
If x<-1.0*ARSIN=-pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is betMeen -1 and +1* inclusive. If the 
argument may or Mill fall outside that range during program 
execution* then provide code to test for the situation and* if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 


XFY258X TAN-COTAN /ARG/=/arg(HEX=hex)/, GE PI*2x*18 

Explanation: In the subprogram IFYSTNCT (TAN or COTAN), the 
absolute value of the argument is greater than or equal to 
2 l °#pi (2 l °*pi=.823549664062499960+06). 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Resuit=i. 

Programmer Response: Make sure that the argument (in radians 
Mhere 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotangent function is Mi thin the 
alloMable range. If the argument may or Mill exceed that range 
during program execution* then provide code to test for the 
situation and* if necessary* modify the argument or bypass the 
source referencing the function subprogram. 


XFY259X TAN-COTAN /ARG/=/arg(HEX=hex)/, APPROACHES 
SINGULARITY 

Explanation: In the subprogram IFYSTNCT (TAN or COTAN)* the 
argument value is too close to one of the singularities (±pi/2* 
±3pi/2* ... for the tangent or ±pi» ±2pi» ... for the 
cotangent). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Resuit=*. 

Programmer Response: Make sure that the argument (in radians 
Mhere 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotangent function is Mithin the 
alloMable range. If the argument may or Mill approach the 
corresponding singularities for the function during program 
execution* then provide code to test for the situation and* if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 


XFY260X FQXP2# REALX16 EXPONENT=exp» GE 252 

Explanation: In the subprogram IFYFQXPR(FQXP2#)* the exponent 
is beyond the range of 2 25 *. 


Library Interruption and Error Procedures and Messages 117 



supplemental Data Provided: Exponent specified. 

Standard Corrective Action: Result=*. 

Programmer Response: Make sure that the exponent is within the 
allowable range. 


ZFY261I DSQRT ARGUMENT=arg LT ZERO 

Explanation: In the subprogram IFYLSQRT(DSQRT)* the argument is 
less than 0. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result* |xl 

Programmer Response: Make sure that the argument is within the 
allowable range. Either modify the argument* or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function reference if necessary. 


XFY262X DEXP ARG=arg, GT 174.673 

Explanation: In the subprogram IFYLEXP(DEXP)* the argument is 
greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=». 

Programmer Response: Make sure that the argument to the 
exponential function is within allowable range. If the argument 
may or will exceed that range during program execution* then 
provide code to test for the situation and* if necessary* modify 
the argument or bypass the source referencing the function 
subprogram. 


ZFY263Z DLOG-DLOGIO ARG=arg, LE ZERO 

Explanation: In the subprogram IFYLLOG (DLOG and DLOGIO)* the 
argument is less than or equal to zero. Because the subprogram 
is called by an exponential subprogram* this message may also 
indicate that an attempt has been made to raise a negative base 
to a real power. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X=0*RESULT=-*» 

If X<0*RESULT = log|X| or log |X|. 

10 

Programmer Response: Make sure that the argument to the 
logarithmic function is within the allowable range. If the 
argument may or will be outside that range during program 
execution* then provide code to test for the situation and* if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 


IFY264I DSIM-DCOS /ARG/=/arg(HEX=hex)/, GE PI2**50 

Explanation: In the subprogram IFYLSCN (DSIN and DCOS)* the 

absolute value of the argument is greater than or equal to 
2 50 *pi C2 50 *pi=.353711887378022390+16). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=SQRT(2)/2. 
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Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 


IFY265I DATAN2 ARGUMENTS=0.0 

Explanation: In subprogram IFYLATN2* when entry name DATAN2 is 

used* both arguments are equal to zero. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action-* Result=o. 

Programmer Response: Make sure that both arguments do not 
become zero during program execution* or are not inadvertently 
initialized or modified to zero. Provide code to test for the 
situation and* if necessary* modify the arguments or bypass the 
source referencing the function subprogram. 


XFY266I DSINH-DCOSH /ARG/=arg/, GE 175.366 

Explanation: In the subprogram IFYSCNH (DSINH or DCOSH)* the 

absolute value of the argument is greater than or equal to 
175.366. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action*- DSINH(X)=±*; DC0SH(X)=* 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 


1FY267I DARSIN-DARCOS /ARG/=/arg/ GT 1 

Explanation: In the subprogram IFYLASCH (DARSIN or DARCOS)* the 
absolute value of the argument is greater than 1. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If x > 1.0 DARCOS(x) = 0; 

If x < -1.0 DARCOS(X) = pi ** 

If x > 1.0 DARSIN = pi/2* 

If x < -1.0 DARSIN = -pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is between -1 and +1, inclusive. If the 
argument may or will fall outside that range during execution* 
then provide code to test for the situation and* if necessary* 
modify the argument or bypass the source referencing the 
function subprogram. 


XFY268X DTAN-DCOTAN /ARG/=/arg(HEX=hex)/, GE PXX2»*50 

Explanation: In the subprogram IFYLTNCT (DTAN or DCOTAN), the 

absolute value of the argument is greater than or equal to 
2 50 *pi (2 50 *pi=.35371188760142201D+16). 

Supplemental Data Provided: Argument specified. 
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Standard Corrective Action: Result=l. 

Programmer Responses Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will exceed that range 
during program execution, then provide code to test for the 
situation and, if necessary, modify the argument or bypass the 
source referencing the function subprogram. 


IFY269I DTAN-DCOTAN /ARG/=/arg(HEX=hex)/, APPROACHES 
SINGULARITY 

Explanations In the subprogram IFYLTNCT (DTAN or DCOTAN), the 
argument value is too close to one of the singularities (±pi/2> 
±3pi/2, ... for the tangent; ±pi, ±2pi, ... for the cotangent). 

Supplemental Data Provided: Argument specified. 

'i 

Standard Corrective Action: Resuit=*. 

Programmer Responses Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will approach the 
corresponding singularities for the function during program 
execution, then provide code to test for the situation and, if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 


IFY270I FCQXI C0MPLEX#32 BASE=0.0+0.0I, INTEGER EXPONENT=exp, 
LE ZERO 


IFY270I FCQCG CQMPLEXX32 BASE=0.0X0.01, EXPONENT=exp, LE ZERO 

Explanations In the subprograms IFYFCQXI (FCQXI#) and IFYFCQCG 
(FCQCG#), a base 0 number has been raised to a power less than 
or equal to zero. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X=0 + 0 i and J = 0, RESULT=l+0i; 

If X=0+0i and J<0, RESULT=*+0i. 

(where J=exponent) 

Programmer Response: Make sure the base is a non-zero number or 
raise the exponent to a non-zero value. 


IFY271I CEXP REAL ARG=arg(HEX=hex), GT 174.673 

Explanations In the subprogram IFYCSEXP (CEXP), the value of 
the real part of the argument is greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Actions Result=«(C0S X + iSIN X) where X is 
the imaginary portion of the argument. 

Programmer Responses Make sure that the argument to the 
exponential function is within the allowable range. If the 
argument may or will exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 


120 VS FORTRAN Application Programming: Library Reference 



XFY272Z CEXP IMAC ARG=arg(HEX=hex), ABS VALUE GE PXX2XX18 

Explanation: In the subprogram IFYCSEXP (CEXP), the absolute 
value of the imaginary part of the argument is greater than or 
equal to 2*®Xpi (2 l «Xpi=.82354966406249996D+06). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=e xl +Oxi. 

Programmer Response: Make sure that the argument to the 
exponential function is Mi thin the allouiable range. If the 
argument may or Mill exceed that range during program execution, 
then provide code to test for the situation, and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 


XFY273X CLOG ARGUMENTS.0+0.OX 

Explanation: In the subprogram IFYCSLOG (CLOG), the real and 

imaginary parts of the argument are equal to zero. 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=-*+0i. 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution, or ore not inadvertently initialized or modified to 
zero. Provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 


XFY274X CSXN-CCOS /REAL ARG/=/arg(HEX=hex)/, GE PXX2XX18 

Explanation: In the subprogram IFYCSSCN (CSIN or CCOS), the 

absolute value of the real part of the argument is greater than 
or equal to 2 l# *pi (2 l# *pi=.82354966406249996D+06). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

Result=C0SH(x )+QXi ; CSIN=0+SINH(x )Xi. 

2 2 

Programmer Response: Make sure that the real part of the 
argument (in radians Mhere 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
Mi thin the alloMable range. If the real part of the argument may 
or Mill exceed the range during program execution, then provide 
code to test for the situation and, if necessary, modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 


XFY275I CSXN-CCOS /XMAG ARG=/arg(HEX=hex)/, GT 174.673 

Explanation: In the subprogram IFYCSSCN (CSIN or CCOS), the 

absolute value of the imaginary part of the argument is greater 
than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: if imaginary part > 0, (X is real 
portion of argument): 

For sine, result=»/2(SIN X + iCOS X). 

For cosine, result=*/2(C0S X - iSIN X). 

If imaginary part <0, (X is real portion of argument): 
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Fop sin®, result=*/2(SIN X - iCOS X). 

For cosine, result=*/2(C0$ X + iSIN X). 

Programmer Responses Make sure that the imaginary part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
within the allowable range. If the imaginary part of the 
argument may or will exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the imaginary part of the argument or bypass the source 
referencing the function subprogram. 


XFY276X CQEXP REAL ARGsarg, GT 174.673 

Explanation: In the subprogram IFYCQEXP (CQEXP), the value of 
the real part of the argument is greater than 174.673. 

Supplemental Data Provided- Argument specified. 

Standard Corrective Action: Result “*(COS X * iSIN X) where X is 
the imaginary portion of the argument. 

Programmer Response: Make sure that the real part of the 
argument to the exponential function is within the allowable 
range. If the real part of the argument may or will exceed the 
range during program execution, then provide code to test for 
the situation, and, if necessary, modify the real part of the 
argument or bypass the source referencing the function 
subprogram. 


XFY277X CQEXP XMAG ARG=arg, ABS VALUE GT PXX2XX100 

Explanation: In the subprogram IFYCQEXP (CQEXP), the absolute 
value of the imaginary part of the argument is greater than 
2 100 Xpi (2 l00 *pj =.39824418129956 9730 + 31) 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result-e X1 +0#i. 

Programmer Response: Make sure that the imaginary part of the 
argument to the exponential function is within the allowable 
range. If the imaginary part of the argument may or will exceed 
that range during program execution, then provide code to test 
for the situation and, if necessary, modify the imaginary part 
of the argument or bypass the source referencing the function 
subprogram. 


IFY278X CQLOG ARGUMENT = 0.0+0.01 

Explanation: In the subprogram IFYCQL0G (CQLOG), the real and 
imaginary parts of the argument are equal to zero. 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=-*+0i. 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution, or are not inadvertently initialized or modified to 
zero. Provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 


XFY279X CQSIN-CQCOS /REAL ARG/=/arg/, GE 2XX100 

Explanation: In the subprogram IFYCQSCN (CQSIN or CQC0S), the 
absolute value of the real part of the argument is greater than 
or equal to 2 l °°. 
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Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If the argument is X + iY» for 
CQSIN, result=0 + DSINH (Y)#i and, for CQCOS, result = DCOSH 
(Y)+0*i. 

Programmer Response: Make sure that the real part of the 
argument (in radians Mhere 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
i*ii thin the alloMable range. If the part of the argument may or 
Mill exceed the range during program execution, then provide 
code to test for the situation and, if necessary, modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 


IFY2801 CQSIN-CQC05 /IMAG ARG/=/arg/, GT 174.673 

Explanation: In the subprogram IFYCQSCNCCQSIN or CQCOS), the 
absolute value of the imaginary part of the argument is greater 
than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If imaginary part > 0, (X is real 
portion of argument)! 

For sine, result=*/2(SIN X + iCOS X). 

For cosine, result=»/2(C0S X - iSIN X). 

If imaginary part <0, (X is real portion of argument)! 

For sine, result=»/2(SIN X - iCOS X). 

For cosine, result=*/2(C0S X + iSIN X). 

Programmer Response: Make sure that the imaginary part of the 
argument (in radians Mhere 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
Mi thin the alloMable range. If the imaginary part of the 
argument may or Mill exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the imaginary part of the argument or bypass the source 
referencing the function subprogram. 


IFY281I CDEXP REAL ARG=arg(HEX=hex), GT 174.673 

Explanation: In the subprogram IFYCLEXP (CDEXP), the value of 

the real part of the argument is greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=*(COS X + iSIN X) Mhere X is 
the imaginary portion of the argument. 

Programmer Response: Make sure that the real part of the 
argument to the exponential function is Mithin the alloMable 
range. If the real part of the argument may or Mill exceed that 
range during program execution, then provide code to test for 
the situation and, if necessary, modify the real part of the 
argument or bypass the source referencing the function 
subprogram. 


XFY282X CDEXP XMAG ARG=arg(HEX=hex),ABS VALUE GE PI*2**50 

Explanation: In the subprogram IFYCLEXP(CDEXP) , the absolute 
value of the imaginary part of the argument is greater than or 
equal to 2 50 Xpi (2 50 Xpi=. 35371188760142201D+16). 

Supplemental Data Provided: Argument specified. 

standard Corrective Action: Result=e x +0*i. 
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Programmer Response: Make sure that the imaginary part of the 
argument to the exponential function is within the allowable 
range. If the imaginary part of the argument may or will exceed 
that range during program execution, then provide code to test 
for the situation# and# if necessary# modify the imaginary part 
of the argument or bypass the source referencing the function 
subprogram. 


XFY283I COLOG ARGUMENT=0.D0+0.D0X 

Explanation: In the subprogram IFYCLLOG (CDLOG)# the real and 

imaginary parts of the argument are equal to zero. 

Supplemental Data Provided: None. 

standard Corrective Action: Result^-^+O?. 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution# or are not inadvertently initialized or modified to 
zero. Provide code to test for the situation and# if necessary# 
modify the argument or bypass the source referencing the 
function subprogram. 


IFY284I CDSIN-CDCOS /REAL ARG/ =/arg(HEX=hex)/, GE PIX2XX50 

Explanation: In the subprogram IFYCLSCN (CDSIN or COCOS)# the 
absolute value of the real part of the argument is greater than 
or equal to 2 5 °*pi (2 5 °Xpi = .35371188760142201D+16). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If the argument is X + iY# for 
CDSIN, the result=0 + DSINH (Y) +i; for CDCOS# the result=DCOSH 
(Y)+0*i. 

Programmer Response: Make sure that the real part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
within the allowable range. If the part of the argument may or 
will exceed the range during program execution# then provide 
code to test for the situation# and# if necessary# modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 


ZFY285Z CDSIN-CDCOS /IMAG ARG/=/arg(HEX=hex)/# GT 174.673 

Explanation: In the subprogram IFYCLSCN (CDSIN or CDCOS)# the 
absolute value of the imaginary part of the argument is greater 
than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If imaginary part >0# (X is real 
portion of argument)** 

For sine, result=«/2(SIN X + iCOS X). 

For cosine# result=*/2(C0S X - iSIN X). 

If imaginary part <0# (X is real portion of argument)* 

For sine, result=*/2(SIN X - iCOS X). 

For cosine# result=*/2(COS X + iSIN X). 

Programmer Response: Make sure that the imaginary part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
within the allowable range. If the imaginary part of the 
argument may or will exceed that range during program execution# 
then provide code to test for the situation and# if necessary# 
modify the imaginary part of the argument or bypass the source 


124 VS FORTRAN Application Programming* Library Reference 



referencing the function subprogram 


XFY286X VSXOS - ATTEMPT TO X38UE SYNCHRONOUS AND ASYNHRONOUS 
X/0 REQUESTS MXTHOUT AN INTERVENING REMIND. FILE 
f1lename 

Explanation: A data-set that has been using one mode of I/O 
operations (that is* either synchronous or asynchronous) must be 
rewound before changing modes. An attempt was made to change the 
mode without rewinding the data set. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The I/O request is ignored and 
execution continues. 

Programmer Response: Insert a REMIND statement at an 
appropriate point in the program. 


XFY287X VASYN - A HAXT ISSUED UXTH NO OUTSTANDING X/O 
REQUEST f FILE filename 

Explanation: A MAIT statement was issued with no corresponding 
READ or MRITE request. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The MAIT statement is ignored and 
execution continues. 

Programmer Response: Remove the MAIT statement or include a 
corresponding READ or MRITE statement. 


XFY288X VASYN - NO MAIT ISSUED FOR AN OUTSTANDING X/O REQUEST 
FILE filename 

Explanation: No MAIT statement was issued for an outstanding 
READ or MRITE request. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: Execution continues with an implied 
MAIT. 

Programmer Response: Include the MAIT statement or remove the 
READ or MRITE statement. 


IFY289X QSQRT ARGUMENT=arg LT ZERO 

Explanation: In the subprogram IFYQSQRT (QSQRT#)* the argument 
is less than zero. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result = |xi I/2 

Programmer Response: Make sure that the argument is within the 
allowable range. Either modify the argument* or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function reference if necessary. 


XFY290I GAMMA ARG=arg(HEX=hex),LE 2*X-252 OR GE 57.5744 

Explanation: In the subprogram IFYSGAMA (GAMMA)* the value of 

the argument is outside the valid range (2- 252 <x<57.5744). 

Supplemental Bata Provided: Argument specified. 
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standard Corrective Action: Results. 

Programmer Response: Make sure that the argument to the gamma 

function is within the allowable range. If the argument may or ,0s 

will be outside that range during program execution, then \ 

provide code to test for the situation and, if necessary, modify 

the argument or bypass the source referencing the function 

subprogram. 


IFY291X ALGAMA ARG=arg(HEX=hex),LE ZERO. OR GE 4.2937*10**73 

Explanation: In the subprogram IFYSGAMA (ALGAMA), the value of 
the argument is outside the valid range (0<x<4.2937xl0 73 ). 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result?*. 

Programmer Response: Make sure that the argument to the ALGAMA 
function is within the allowable range. If the argument may or 
will be outside that range during program execution, then 
provide code to test for the situation and, if necessary, modify 
the argument or bypass the source referencing the function 
subprogram. 


IFY292I QEXP ARG=arg, GT 174.673 

Explanation: In the subprogram IFYFQXPR (QEXP), the argument is 

greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result?*. 

Programmer Response: Make sure that the argument to the 
exponential function is within the allowable range. If the 

argument may or will exceed that range during program execution, 'Vy| 

then provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 


IFY293I QLOG-QLOGIO ARG=arg, LE ZERO 

Explanation: In the subprogram IFYQLOG (QLOG and QLOGIO), the 

argument is less than or equal to zero. Because the subprogram 
is called by an exponential subprogram, this message may also 
indicate that an attempt has been made to raise a negative base 
to a real power. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If x=0, result?-*; if X<0, 
result=log|X| or log |X|. 

10 

Programmer Response: Make sure that the argument to the 
logarithmic function is within the allowable range. If the 
argument may or will be outside that range during program 

execution, then provide code to test for the situation and, if t 

necessary, modify the argument or bypass the source referencing 
the function subprogram. 


IFY294I QSIN-QCOS /ARG/=/arg/, GE 2KX100 

Explanation: In the subprogram IFYQSCN (QSIN and QCOS), the 
absolute value of the argument is greater than or equal to 2 100 . 

Supplemental Data Provided: Argument specified. /f ~^ 
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Standard Corrective Action: Result=SQRT(2)/2 

Programmer Response: Make sure that the argument (in radians 
Nhere 1 radian is equivalent to 57.2957795131°) to the 
trigonometric sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 


XFY295Z QATAN2 ARGUMENTS =0.0 

Explanation: In subprogram IFYQATN2* when entry name QATAN2 is 

used* both arguments are equal to zero. 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=0. 

Programmer Response: Make sure that both arguments do not 
become zero during program execution* or are not inadvertently 
initialized or modified to zero. Provide code to test for the 
situation and* if necessary, modify the arguments or bypass the 
source referencing the function subprogram. 


IFY296I QSXNH-QCOSH /ARG/=/arg/, GE 175.366 

Explanation: In the subprogram IFYQSCNH (QSINH or QCOSH)* the 

absolute value of the argument is greater than (or equal to) 
175.366. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: QSINH(X)=±*? QC0SH(X)=*. 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 


XFY297X QARSIN-QARCOS /ARG/=/arg/, GT 1 

Explanation: In the subprogram IFYQASCN (QARSIN or QARCOS), the 
absolute value of the argument is greater than 1. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X > 1.0 QARCOSCX) = 0; 

If X < -1.0 QARCOSCX) = pi? 

If X > 1.0 QARSIN = pi/2? 

If X < -1.0 DARSIN = -pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is between -1 and +1* inclusive. If the 
argument may or will fall outside that range during program 
execution* then provide code to test for the situation and, if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 


XFY298X QTAN-QCQTAN /ARG/=/arg/» GE 2**100 

Explanation: In the subprogram IFYQTNCT (QTAN or QCOTAN)* the 

absolute value of the argument is greater than or equal to 2 X0 ° 

Supplemental Data Provided: Argument specified. 
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Standard Corrective Action: Result=l. 

Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will exceed that range 
during program execution, then provide code to test for the 
situation and, if necessary, modify the argument or bypass the 
source referencing the function subprogram. 


IFY299I QTAN-QCOTAN /ARG/=/arg/, APPROACHES SINGULARITY 

Explanation: In the subprogram IFYQTNCT (QTAN or QCOTAN), the 

argument value is too close to one of the singularities (±pi/2, 
±3pi/2,... for the tangent; ±pi , ±2pi,... for the cotangent). 

Supplemental Data Provided: Argument specified. , 

Standard Corrective Action: Result=». 

Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotengent function is within the 
allowable range. If the argument may or will approach the 
corresponding singularities for the function during program 
execution, then provide code to test for the situation and, if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 


IFY300I DGAMMA ARG=arg(HEX=hex),LE 2*X-252 OR GE 57.5744 

Explanation: In the subprogram IFYLGAMA (DGAMMA), the value of 

the argument is outside the valid range (2- 252 <x<57.5744). 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result=*. 

Programmer Response: Make sure that the argument to the DGAMMA 
function is within the allowable range. If the argument may or 
will be outside the range during program execution, then provide 
code to test for the situation and, if necessary, modify the 
argument or bypass the source referencing the function 
subprogram. 


IFY301I DLGAMA ARG=arg(HEX=hex), LE ZERO. OR GE 4.2937*10**73 

Explanation: In the subprogram IFYLGAMA (DLGAMA), the value of 

the argument is outside the valid range (0<x<4.2937x10 73 ). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=». 

Programmer Response: Make sure that the argument to the DLGAMA 
function is within the allowable range. If the argument may or 
will be outside that range during program execution, then 
provide code to test for the situation and, if necessary, modify 
the argument or bypass the source referencing the function 
subprogram. 


IFY900I EXECUTION TERMINATING DUE TO ERROR COUNT FOR ERROR 
NUMBER nnnn 

Explanation: This error has occurred frequently enough to reach 

the count specified as the number at which execution should be 
terminated. 

Supplemental Data Provided: Error number. 


128 VS FORTRAN Application Programming! Library Reference 




Standard Corrective Action: No corrective action is 
implemented. 

System Action: The job step is terminated with a completion 
code of 16. 

Programmer Response: Make sure that occurrences of the error 
number indicated are eliminated. 


XFY901I EXECUTION TERMINATING DUE TO SECONDARY ENTRY TO ERROR 
MONITOR FOR ERROR NUMBER nnnn WHILE PROCESSING ERROR 
NUMBER nnnn 

Explanation: In a user's corrective action routine* an error 

has occurred that has called the error monitor before it has 
returned from processing a previously diagnosed error. 

Supplemental Data Provided: Error numbers. 

Standard Corrective Action: No corrective action is attempted. 

System Action: The job step is terminated uiith a completion 
code of 16. 

Note: if a traceback follows this message* it may be unreliable. 

Programmer Response: Make sure that the error monitor is not 
called prior to processing the diagnosed error. 

Example: A statement such as R=A##B (where A and B are REAL*4) 
cannot be used in the exit routine for error 252, because FRXPR# 
uses EXP* which detects error 252. 

Refer to VS FORTRAN Application Programming Language Reference 
for information on the error handling subroutines. 


IFY902I ERROR NUMBER nnnn OUT OF RANGE OF ERROR TABLE 

Explanation: A request has been made to reference a 

non-existent Option Table entry. 

Supplemental Data Provided: Error number. 

System Action: The request is ignored and execution continues. 
IRETCD is set to 0. 

Programmer Response: Make sure that the value assigned to an 
error condition is within the range of entries in the option 
table. 


IFY903I VMOPT - ATTEMPT TO CHANGE UNMODIFIABLE TABLE ENTRY. 
MESSAGE NUMBER=nnnn 

Explanation: The Option Table specifies that no changes may be 

made in this entry* but a change request has been made by use of 
CALL ERRSET or CALL ERRSTR. 

Refer to VS FORTRAN Application Programming Language Reference 
for information on the error handling subroutines. 

Supplemental Data Provided: Message number. 

System Action: The request is ignored and execution continues. 

Programmer Response: Make sure that no attempt has been made to 
alter dynamically an unmodifiable entry in the Option Table. 
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IFY904I ATTEMPT TO DO X/O DURING FXXUP ROUTINE FOR AN X/O 
TYPE ERROR, FILE filename 

Explanation: bihen attempting to correct an I/O error, the user 
may not issue a READ, WRITE, BACKSPACE, ENDFILE, REMIND, CALL 
PDUMP, CALL DUMP, DEBUG, or CALL ERRTRA. 

Refer to VS FORTRAN Application Programming L anguage Re ference 
for information on the error handling subroutines. 

Supplemental Data Provided: Filename. 

System Action: The job step is terminated with a completion 
code of 16. 

Programmer Response: Make sure that, if an I/O error is 
detected, the user exit routine does not attempt to execute any 
FORTRAN I/O statement. 
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OPERATOR MESSAGES 

Operator messages for PAUSE and STOP statements may be generated 
during load module execution as follows: 


yy XFY001A PAUSE X 

Explanation: A FORTRAN PAUSE statement has been executed. The 
yy is an identification number assigned to the message by the 
operating system. The x can be: 

• An unsigned 1- to 5-digit integer constant specified in the 
PAUSE statement. 

• A literal constant specified in the PAUSE statement. 

• A zero to indicate that the PAUSE statement contained no 
constant. 

System Action: The program enters the wait state. 

Operator Response: Follow the instructions given by the 
programmer when the program was submitted for execution; these 
instructions should indicate the action to be taken for any 
constant printed in the message text or for a PAUSE statement 
without a constant. 

To resume execution, reply to the outstanding console message 
after performing the operations requested. 


IFY002A STOP X 

Explanation: A FORTRAN STOP statement has been executed. The x 
can be an unsigned 1- to 5-digit nonzero integer constant 
specified in the STOP statement. 

System Action: The STOP statement caused the program to 
terminate. 

Operator Response: None. 
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APPENDIX D. MODULE NAMES 


Entry Name 

Module Name 

CHAR 

IFYCITFN 

ICHAR 

IFYCITFN 

INDEX 

IFYINDEX 

LEN 

IFYCITFN 

LGE 

IFYLXCMP 

LGT 

IFYLXCMP 

LIE 

IFYLXCMP 

LIT 

IFYLXCMP 

Figure 22. 

Character Subprogram Module Names 


OS 

CMS 

DOS 

IFYVCOMH 

IFYVCOMH 

IFYVCOMH 

IFYVSIOS 

IFYVSIOS 

IFYDSIOS 

IFYVDIOS 

IFYVDIOS 

IFYDDIOS 

IFYVIIOS 

IFYVIIOS 

IFYVIIOS 

IFYVVIOS 

IFYCVIOS 

IFYDVIOS 

IFYVCVTH 

IFYVCVTH 

IFYVCVTH 

IFYVCONI 

IFYVCONI 

IFYVCONI 

IFYVC0N0 

IFYVCONO 

IFYVCONO 

IFYVTEN 

IFYVTEN 

IFYVTEN 

IFYVERRM 

IFYVERRM 

IFYVERRM 

IFYVERRE 

IFYVERRE 

IFYVERRE 

IFYVTRCH 

IFYVTRCH 

IFYVTRCH 

Figure 23. 

Reentrant Library 

Module Names 
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(O 

Entry Name 

Module Name 

Entry Name 

Module Name 


ACOS 

IFYSASEN 

DSIN 

IFYLSIN 


AINT 

IFYFAINT 

DSINH 

IFYLSCNH 


ALGANA 

IFYSGAMA 

DSQRT 

IFYLSQRT 


ALOG 

IFYSLGC 

DTAN 

IFYLTNCT 


AtOGlO 

IFYSLGC 

DTANH 

IFYLTANH 


ANAXO 

IFYFMAXI 




AMAX1 

IFYFMAXR 

EXP 

IFYSEXP 


AMINO 

IFYFMAXI 

ERF 

IFYSERF 


AMIN1 

IFYFMAXR 

ERFC 

IFYSERF 


AMOD 

IFYFMODR 




ARCOS 

IFYSASCN 

FCDXI# 

IFYFCDXI 


ARSIN 

IFYSASCN 

FCQXI# 

IFYFCQXI 


ASIN 

IFYSASCN 

FCXPI# 

IFYFCXPI 


ATAN 

IFYSATN2 

FDXPD# 

IFYFDXPD 


ATAN2 

IFYSATN2 

FDXPI# 

IFYFDXPI 

• 



FIXPI# 

IFYFIXPI 


CABS 

IFYCSABS 

FQXPI# 

IFYFQXPI 


CCOS 

IFYCSSCN 

FQXPQ# 

IFYFQXPQ 


CDABS 

IFYCLABS 

FQXP2# 

IFYFQXPQ 


CDCOS 

IFYCLSCN 

FRXPI# 

IFYFRXPI 


CDDVD# 

IFYCLAD 

FRXPR# 

IFYFRXPR 


CDEXP 

IFYCLEXP 




CDLOG 

IFYCLLOG 

GAMMA 

IFYSGAMA 


CDMPY# 

IFYCLAM 




CDSIN 

IFYCLSCN 

IDINT 

IFYFIFIX 


CDSQRT 

IFYCLSQT 

IFIX 

IFYFIFIX 


CDVD# 

IFYCSAD 

INT 

IFYFIFIX 


CEXP 

IFYCSEXP 




CLOG 

IFYCSLOG 

LGAMMA 

IFYSGAMA 


CMPY# 

IFYCSAM 

LOG 

IFYSLGN 


COS 

IFYSCOS 

LOGIO 

IFYSLGN 

■e 

COSH 

IFYSSCNH 



COTAN 

IFYSTNCT 

MAXO 

IFYFMAXI 


CQABS 

IFYCQABS 

MAXI 

IFYFMAXR 


CQCOS 

IFYCQSCN 

MINO 

IFYFMAXI 


CQDVD# 

IFYCQRIT 

MINI 

IFYFMAXR 


CQEXP 

IFYCQEXP 

MOD 

IFYFMODI 


CQLOG 

IFYCQLOG 




CQMPY# 

IFYCQRIT 

QARCOS 

IFYQASCN 


CQSIN. 

IFYCQSCN 

QARSIN 

IFYQASCN 


CQSQRT 

IFYCQSQT 

QATAN 

IFYQATN2 


CSIN 

IFYCSSCN 

QATAN2 

IFYQATN2 


CSQRT 

IFYCSSQT 

QCOS 

IFYQSCN 




QCOSH 

IFYQSCNH 


DARCOS 

IFYLASCN 

QCOTAN 

IFYQTNCT 


DARSIN 

IFYLASCN 

QERF 

IFYQERF 


DATAN 

IFYLATN2 

QERFC 

IFYQERF 


DAT AN2 

IFYLATN2 

QEXP 

IFYFQXPQ 


DCOS 

IFYLCOS 

QLOG 

IFYFQXPQ 


DCOSH 

IFYLSCNH 

QLOGIO 

IFYFQXPQ 


DCOTAN 

IFYLTNCT 

QSIN 

IFYQSCN 


DERF 

IFYLERF 

QSINH 

IFYQSCNH 


DERFC 

IFYLERF 

QSQRT 

IFYQSQRT 


DEXP 

IFYLEXP 

QTAN 

IFYQTNCT 


DGAMMA 

IFYLGAMA 

QTANH 

IFYQTANH 


DLGAMA 

IFYLGAMA 




DLOG 

IFYLLGN 

SIN 

IFYSSIN 


DLOGIO 

IFYLLGC 

SINH 

IFYSSCNH 


DMAX1 

IFYFMAXD 

SQRT 

IFYSSQRT 


DMIN1 

IFYFMAXD 




DMOD 

IFYFMODR 

TAN 

IFYSTNCT 




TANH 

IFYSTANH 


Figure 24. 

Mathematical Subprogram Module 

Names 
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Appendix E: Sample Storage Printouts 


A sample printout is given below for each dump format that can be specified for the 
storage dump subprogram. The printouts are given in the following order: hex¬ 
adecimal, LOGICAL *1, LOGICAL *4, INTEGER *2, INTEGER *4, REAL *4, REAL *8, COM¬ 
PLEX *8, COMPLEX *16, and literal (see Figure 25). Note that the headings on the print¬ 
outs are not generated by the system, but were obtained by using FORMAT statements. 
The number printed at the left of each output line is the storage location (in hexadecimal) 
of the first data item tabulated. 

The output of the storage dump subprogram (for entry names dump, cpdump, 
and pdump) is placed on the object error unit data set defined by the installation 
during system generation. 




OOtEIC 10 


CALL PDUMP WITH 

INTEGER*** FORMAT SPECIFIED 








006E20 

006E98 

12 5 

11 12 

<* 

5 

6 

7 

8 

9 

10 


CALL PDUMP WITH REAL*** FORMAT SPECIFIED 
006E00 0.20000000E 01 0.5J999996E 01 

CALL PDUMP WITH REALM FORMAT SPECIFIED 

006DC8 _ 0.17599999999999990 03 _ 

CALL PDUMP WITH COMPLEX'S FORMAT SPECIFIED 

006000 CJ. 0000000,**. 0000000) (**.0000000,8.0000000) 

CALL PDUMP WITH COMPLEX*16 FORMAT SPECIFIED 

006DE0 _(0.9999999999999990,0.9999999999999990) (-0.9999999999999990,-0.9999999999999990) 

CALL PDUMP WITH LITERAL FORMAT SPECIFIED 
006E5C THIS ARRAY CONTAINS ALPHAMERIC DATA 

CALL CPDUMP 

008990 FILE READ ARGUMENT 


Figure 25. Sample Storage Printouts 
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LHPJX 


CD 

ABS/IAB 34 

error message 116 
absolute value subprograms 34,19 
accuracy figures 72 
AIHT subprogram 
size 86 
ALGAMA/GAMMA 
accuracy 73 
algorithm 47-48 
effect of argument error 48 
error message 126 
size 86 

algorithms 31-71 
ALOG/ALOGIO 
accuracy 73 
algorithm 52-53 
effect of argument error 53 
error message 116 
size 86 

AMAXO/AMINO subprograms 
list of 11 
AMOD/DMOD subprogram 
list of 11 
arguments 21 

arcosine subprograms 35-37,16 
ARCOS/ARSIN subprogram 
accuracy 73 
algorithm 35 
effect of an argument 35 
error message 117 
size 86 

arcsine subprograms 35-37,16 
arctangent subprograms 38-41,16 
arguments 

assembler language 82 
explicitly called 12-22 
implicitly called 23-26 
ARSIN/ARCOS 

(see ARCOS/ARSIN) 

ASIN/ACOS 

algorithm 35 
(see ARSIN/ARCOS) 
assembler language 
calling sequence 79 
requirements 81 
ATAN 

accuracy 73 
algorithm 38 

effect of an argument error 38 
size 86 

ATAN/ATAN2 subprogram 
accuracy 73 
algorithm 38-39 
effect of an argument error 39 
error message 116 
size 86 


CD 


CABS subprogram 
accuracy 73 
algorithm 34 

effect of argument error 34 


size 86 

calling VS FORTRAN subprograms 
explicitly 12,34 
implicitly 23 
in assembler language 81 
calling sequence 

in assembler language 79 
CALL macro instruction 79 
CCOS/CSIN subprogram 
accuracy 73 
algorithm 58 

effect of an argument error 58 
error message 121-122 
size 86 

CDABS subprogram 
accuracy 73 
algorithm 34 
size 86 

CDCOS/CDSIN subprogram 
accuracy 73 
algorithm 58 

effect of an argument error 59 
error message 124-125 
size 86 

CDDVD#/CDMPY# subprogram 
algorithm 66 
size 86 

CDEXP subprogram 
accuracy 73 
algorithm 46 

effect of an argument error 46 
error message 123-124 
size 86 

CDLOG subprogram 
accuracy 73 
algorithm 54 

effect of an argument error 54 
error message 124 
CDMPY 9/CDDVD# 

(see CDDVDt/CDMPYi) 

CDSIN/CDCOS 

(see CDCOS/CDSIN) 

CDSQRT subprogram 
accuracy 73 
algorithm 61 

effect of an argument error 62 
size 86 

CDUMP/CPDUMP 30 
CDUMP/CPDUMP subprogram 30 
algorithm 66 

effect of an argument error 66 
size 86 
CEXP subprogram 
accuracy 73 
algorithm 46 

effect of on argument error 46 
error message 120-121 
size 86 

CHAR subprogram 22 
Character subprograms 
CHAR 22,10 
ICHAR 22,10 
INDEX 22,10 
LEN 22,10 
LGE 22,10 
LGT 22,10 
LLE 22,10 
LLT 22,10 

manipulation routines 22 
storage estimates 87 
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CLOG subprogram 
accuracy 73 
algorithm 54 

effect of an argument error 54 
error message 121 
size 86 
CMPY#/CDVD# 

(see CDVD#/CMPY#) 

common logarithm subprograms 52-55,14 
complemented error function 
subprogram 41-45,19 
complex exponentiation 
subprograms 67-71 
complex multiply and divide 
subprograms 66 
corrective action 
program interrupt 
COS/SIN subprogram 
accuracy 73 
algorithm 56-57 
effect of an argument error 57 
error message 116 
size 86 

COSH/SINH subprogram 
accuracy 73 
algorithm 49 

effect of an argument error 49 
error message 116 
size 86 

cosine subprograms 17 
COTAN/TAN subprogram 
accuracy 73,78 
algorithm 63-64 
effect of an argument error 64 
error message 117 
size 86 

cotangent subprograms 63-65,17 
CQABS subprogram 
accuracy 74 
algorithm 35 

effect of an argument error 34 
size 86 
CQCOS 

(see CQSIN/CQCOS) 

CQDVD#/CQMPY# subprograms 
accuracy 74 
algorithm 66 

effect of an argument error 66 
size 86 

CQEXP subprogram 
accuracy 74 
algorithm 47 

effect of an argument error 47 
error message 122 
size 86 

CQLOG subprogram 
accuracy 74 
algorithm 55 

effect of an argument error 55 
error message 122 
size 86 
CQMPY #/CQDVD 
(see CQDVD#/CQMPY#) 

CQSIN/CQCOS subprogram 
accuracy 74 
algorithm 59-60 
effect of an argument error 60 
error message 123 
size 86 

CQSQRT subprogram 
accuracy 74 
algorithm 62-63 
effect of an argument error 63 
size 86 


CSIN/CCOS 

(see CCOS/CSIN) 

CSQRT subprogram 
accuracy 74 
algorithm 61-62 
effect of an argument error 62 
size 86 


m 

DARSIN/DACOS 
algorithm 36 

effect of an argument error 36 
error message 119 
DASIN/DACOS 

(see DARSIN/DARCOS) 

DATAN 

accuracy 74 
algorithm 39 

effect of an argument error 39 
DATAN/DATAN2 subprogram 
accuracy 74 
algorithm 39 

effect of an argument error 39 
error message 119 
size 86 

DCOS/DSIN subprogram 
accuracy 74 
algorithm 57-58 
effect of an argument error 58 
error message 118 
size 86 

DCOSH/DSINH subprogram 
accuracy 74 
algorithm 50 

effect of an argument error 50 
error message 119 
size 86 

DCOTAN/DTAN subprogram 
accuracy 74-75 
algorithm 64-65 
effect of an argument error 65 
error message 120 
size 86 
accuracy 74 
algorithm 42-43 
effect of an argument error 43 
size 86 
DEXP subprogram 
accuracy 75 
algorithm 46 

effect of an argument error 46 
error message 118 
size 86 

DGAMMA/DLGAMA subprogram 
accuracy 75 
algorithm 48-49 
effect of an argument error 49 
error message 128 
size 86 

divide-check service subprogram 27 
(see also DVCHK) 

DLGAMMA/DGAMMA 

(see DGAMMA/DLGAMA) 

DLOG/DLOGIO subprogram 
accuracy 75 
algorithm 53 

effect of an argument error 53 
error message 118 
size 86 

(see DCOSH/DSINH) 
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DMAX1/DMIN1 subprogram 20 
DMOD/AMOD 21 

(see also AMOD/DMOD) 

DSIN/DCOS 17 

(see also DCOS/DSIN) 

DSINH/DCOSH 18 

(see also DC0SH/DS1NH) 

DSQRT subprogram 
accuracy 75 
algorithm 60-61 
effect of an argument error 61 
error message 118 
size 86 
DTAN/DCOTAN 

(see DCOTAN/DTAN) 

DTANH subprogram 
accuracy 75 
algorithm 51-52 
effect of an argument error 52 
size 86 

DUMP/PDUMP subprogram 
assembler language 
requirements 28-29 
format specifications 28 
output 29 

programming consideration 29 
sample printouts 29 
size 87 

DVCHK service subprogram 
assembler language 
requirements 27,81 
size 87 


□H 

end of execution service 
subprogram 28 
(see also EXIT) 
entry name 
ERF/ERFC subprogram 
accuracy 75 
algorithm 41-42 
effect of an argument error 42 
size 86 
error 

messages 90-131 
procedures 90 

error function subprograms 19 
execution error messages 95-130 
execution-time routines 
messages 95 
EXIT service subprogram 

assembler language requirements 28 
size 87 
EXP subprogram 
accuracy 76 
algorithm 45-46 
effect of an argument error 46 
error message 115 
size 86 

explicitly called subprograms 
accuracy statistics 72 
list 10-11 
size 86-87 

use in assembler language 79 
use in VS FORTRAN 12 
exponential subprograms 
explicit 45 
implicit 67-71 
list 14 


exponentiation 
explicit 

(see EXP; QEXP; CQEXP) 
implicit 

with complex base and complex 
exponent 67 

with complex base and integer 
exponent 67 

with integer base and exponent 69 
with real base and exponent 68 
with real base and integer 
exponent 68 

exponent overflow exception 27 
(see also OVERFL) 

FCDXI# subprogram 
algorithm 67 
error message 114 
size 86 

FCDXDt/FCQXQ#/FCXPC# 
algorithm 67 
effect of argument 67 

FCQXI subprogram 
accuracy 76 
algorithm 70 

effect of an argument error 70 
error message 120 
size 87 

FCXPI# subprogram 
algorithm 67 
error message 114 
size 86 

FDXPD# subprogram 
algorithm 68 

effect of an argument error 68 
error message 113 
size 87 

FDXPI# subprogram 
algorithm 68 
error message 113 
size 87 

FIXPI# subprogram 
algorithm 69 
error message 112 
size 87 

FQXP2# subprogram 
accuracy 76 
algorithm 70 
error message 118 
size 87 

FQXPI# subprogram 
accuracy 76 
algorithm 70 

effect of an argument error 70 
error message 114 
size 87 

FQXPQ# subprogram 
accuracy 76 
algorithm 71 

effect of an argument error 71 
error messages 155 
size 87 

FRXPI# subprogram 
algorithm 68 
error message 112 
size 87 

FRXPR# subprogram 
algorithm 68 

effect of an argument error 68 
error message 113 
size 87 
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GAMMA/ALGAMA 

(secs ALGAMMA/GAMMA) 

GAMMA subprograms 47-49,20 




hyperbolic cosine 
subprograms 49-51,18 
hyperbolic sine subprograms 49-51,18 
hyperbolic tangent 
subprograms 51-52,18 


minimum value subprograms 20 
MOD subprogram 20-21 
modular arithmetic subprograms 21 
module names 
character 132 
mathematical 133 
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natural logarithm 
subprograms 52-55,14 
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ICHAR 

INDEX 

module name 132 
IDINT/IFIX/INT subprogram 21 
implicitly called subprograms 66-71 
list 24-26 
input/out routines 8 
in-line code 7 
INT (see IDINT/IFIX/INT) 
interruption procedures 
intrinsic functions 7 

(see also implicitly called 
subprograms) 
introduction 7 




LEN subprogram 
LGAMMA 49 

(see also ALGAMA/GAMMA) 
library messages 90-131 
library execution routines 88 
LLE subprogram 
LLT subprogram 
LOG (see AL0G/DL0G) 
logarithmic subprograms 52-55,14 
log-gamma subprograms 47-49 
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mathematical exception tests 
mathematical function subprograms 
accuracy figures 
algorithms 
definition 
explicitly called 
implicitly called 
lists 19-21 
performance statistics 
sizes 

use in VS FORTRAN 
use in assembler language 
maximum value subprograms 20 
MAX0/MIN0 subprograms 20 


operator messages 131 
out-of-line code 7 
OVERFL service subprogram 

assembler requirements 27,18 
size 87 

overflow indicator service 
subprogram 27 


PDUMP/DUMP (see DUMP/PDUMP) 28-29 
performance statistics 72 
program interrupt messages 90-94 
progamming considerations 
CDUMP CPDUMP 30 
DUMP/PDUMP 29 




QARCOS (see QARSIN/QARCOS subprogram) 
QARSIN/QARCOS subprogram 
accuracy 76 
algorithm 37 

effect of an argument error 
error message 127-128 
size 87 
QATAN/QATAN2 
accuracy 76 
algorithm 40-41 
affect of an argument error 41 
error message 127 
size 87 

QCOS (see QSIN/QCOS) 

QCOSH (see QSINH/QCOSH) 

QCOTAN (see QTAN/QCOTAN) 

QERF/QERFC subprogram 
accuracy 77 
algorithm 43-45 
effect of an argument error 45 
size 87 
QEXP subprogram 
accuracy 77 
algorithm 46-47 
effect of an argument error 47 
error message 126 
size 87 

QLOG/QLOGIO subprogram 
accuracy 77 
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algorithm 54-55 

effect of an argument error 55 

error message 126-127 

size 87 

QSIN/QCOS subprogram 
accuracy 77 
algorithm 59 

effect of an argument error 59 
error message 127 
size 87 

QSINH/QCOSH subprogram 
accuracy 76-77 
algorithm 50-51 
effect of an argument error 51 
error message 127 
size 87 

QSQRT subprogram 
accuracy 77 
algorithm 62 

effect of an argument error 62 
size 87 

QTAH/QCOTAN subprogram 
accuracy 77 
algorithm 65 

effect of an argument error 65 
error message 128 
size 87 

QTANH subprogram 
accuracy 77 
algorithm 52 

effect of an argument error 52 
size 87 
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relative error 


sample dump printout 134 
save areas 81 


service subprograms 

mathematical exception test 27 
sizes 86-87 

use in assembler language 
use in VS FORTRAN 27 
utility 28 
SIN/COS (see COS/SIN) 
sine subprograms 56-65*17 
SINH/COSH (see C0SH/S1NH) 
square root subprograms 60-63*15 
SQRT subprogram 
accuracy 78 
algorithm 60 

effect of an argument error 60 
error message 115 
size 87 

storage estimates 

character subprograms 87 
execution-time routines 88 
extended precision routines 86-87 
mathematical function 
subprograms 86-87 
service subprograms 87 
storage dump service 
subprograms 28-30 


m 

TAN/COTAN (see COTAN/TAN) 
tangent subprograms 63-65*17 
TANH subprogram 
accuracy 78 
algorithm 51 

effect of an argument error 51 
size 87 

trigonometric subprograms 35-41*16*10 
truncation subprograms 21 
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utility service subprograms 28 
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